[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
Branch:
Changes by: Sylvain Beucler <address@hidden> 04/11/14 08:47:48
Modified files:
infra/elisp : savannah.el
Log message:
Added sv-ping
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/elisp/savannah.el.diff?tr1=1.2&tr2=1.3&r1=text&r2=text
Patches:
Index: administration/infra/elisp/savannah.el
diff -u administration/infra/elisp/savannah.el:1.2
administration/infra/elisp/savannah.el:1.3
--- 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 ()
(interactive)
""
- (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.
+
+Regards,\n\n")
+ (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.
Regards,\n\n")
- (message "Inserted sv-deleted-pending text.")
+ (message "Inserted sv-timeout text.")
)
;;
- [Savannah-cvs] administration/infra/elisp savannah.el,
Sylvain Beucler <=