[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

From: Sylvain Beucler
Subject: [Savannah-cvs] administration/infra/elisp savannah.el
Date: Sun, 14 Nov 2004 03:55:02 -0500

CVSROOT:        /cvsroot/administration
Module name:    administration
Changes by:     Sylvain Beucler <address@hidden>        04/11/14 08:47:48

Modified files:
        infra/elisp    : savannah.el 

Log message:
        Added sv-ping


Index: administration/infra/elisp/savannah.el
diff -u administration/infra/elisp/savannah.el:1.2 
--- administration/infra/elisp/savannah.el:1.2  Fri Sep 17 11:52:17 2004
+++ administration/infra/elisp/savannah.el      Sun Nov 14 08:47:48 2004
@@ -65,7 +65,7 @@
 ;;   sv-closing-resubmit, and added sv-deleted-pending and
 ;;   sv-problem-fdl-info.
-;; $Id: savannah.el,v 1.2 2004/09/17 11:52:17 Beuc Exp $
+;; $Id: savannah.el,v 1.3 2004/11/14 08:47:48 Beuc Exp $
 ;; General
@@ -115,18 +115,42 @@
   (message "Inserted sv-closing-reply text.")
-;; Inform the user that their pending project has been deleted due to
-;; lack of response
+;; Inform the user of the status of their pending project due to lack
+;; of response
-(defun sv-deleted-pending ()
+(defun sv-ping ()
-  (insert "As we have not had a response from you, we have deleted your project
-from the pending queue.  If you would still like to have your project
-hosted at Savannah, please re-submit it for evaluation.
+  (insert "Hi,
+I am waiting for an answer from you.
+If within one week I still do not get a reply, I will remove your
+project. You will still be able to register it again once you have the
+time to deal with the registration issues.
+  (message "Inserted sv-ping text.")
+  )
+(defun sv-deleted-pending () (interactive) (sv-timeout))
+(defun sv-timeout ()
+  (interactive)
+  ""
+  (insert "Hi,
+We did not get a response from you, so we deleted your project from
+the pending queue.
+If you would still like to have your project hosted at Savannah,
+please register it again.
+The re-registration URL found in our acknowledgment of your earlier
+registration will direct you to the proper location where you can
+re-register your project.
-  (message "Inserted sv-deleted-pending text.")
+  (message "Inserted sv-timeout text.")

reply via email to

[Prev in Thread] Current Thread [Next in Thread]