[Savannah-cvs] administration/infra/elisp savannah.el

[Stephan Peijnik]

CVSROOT:        /sources/administration
Module name:    administration
Changes by:     Stephan Peijnik <sp>    06/11/06 21:21:56

Modified files:
        infra/elisp    : savannah.el 

Log message:
        Added sv-opening-verbose and sv-closing-void

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/administration/infra/elisp/savannah.el?cvsroot=administration&r1=1.49&r2=1.50

Patches:
Index: savannah.el
===================================================================
RCS file: /sources/administration/administration/infra/elisp/savannah.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -b -r1.49 -r1.50
--- savannah.el 23 Jun 2006 23:22:51 -0000      1.49
+++ savannah.el 6 Nov 2006 21:21:56 -0000       1.50
@@ -73,7 +73,7 @@
 ;;   lots of changes tracked via CVS, with suggestions or patches from
 ;;   Jonathan V. Gonzales and Sebastian Wieseler.
 ;;
-;; $Id: savannah.el,v 1.49 2006/06/23 23:22:51 stevenr Exp $
+;; $Id: savannah.el,v 1.50 2006/11/06 21:21:56 sp Exp $
 
 ;;
 ;; General
@@ -90,6 +90,16 @@
   (message "Inserted sv-opening text.")
   )
 
+;; Used at the opening of the evaluation - verbose version
+(defun sv-opening-verbose ()
+  (interactive)
+  ""
+  (insert "Hi,
+  
+I'm evaluating the project you submitted for approval in Savannah. While doing 
so I have noticed a few problems which are described below.\n\n")
+  (message "Inserted sv-opening-verbose text.")
+  )
+
 ;; Ask the user to resubmit their project with the requested changes made
 
 (defun sv-closing-resubmit ()
@@ -140,6 +150,18 @@
   (message "Inserted sv-closing-eval text.")
   )
 
+;; Inform the user that their submission looks void
+(defun sv-closing-void ()
+  (interactive)
+  ""
+  (insert "Hi,
+
+As this submission looks void I'm closing it. If this isn't the case, please 
re-submit your project for evaluation, but make sure to read the Savannah 
hosting requirements before. These can be found at 
https://savannah.gnu.org/register/requirements.php.
+
+Regards.\n")
+  (message "Inserted sv-closing-void text.")
+  )
+
 ;; Inform the user of the status of their pending project due to lack
 ;; of response