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

[Sylvain Beucler]

CVSROOT:        /cvsroot/administration
Module name:    administration
Branch:         
Changes by:     Sylvain Beucler <address@hidden>        05/09/04 19:48:20

Modified files:
        infra/elisp    : savannah.el 

Log message:
        Added set-as-nongnu

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/administration/administration/infra/elisp/savannah.el.diff?tr1=1.38&tr2=1.39&r1=text&r2=text

Patches:
Index: administration/infra/elisp/savannah.el
diff -u administration/infra/elisp/savannah.el:1.38 
administration/infra/elisp/savannah.el:1.39
--- administration/infra/elisp/savannah.el:1.38 Fri Sep  2 20:37:47 2005
+++ administration/infra/elisp/savannah.el      Sun Sep  4 19:48:19 2005
@@ -68,7 +68,7 @@
 ;;   lots of changes tracked via CVS, with suggestions or patches from
 ;;   Jonathan V. Gonzales and Sebastian Wieseler.
 ;;
-;; $Id: savannah.el,v 1.38 2005/09/02 20:37:47 Beuc Exp $
+;; $Id: savannah.el,v 1.39 2005/09/04 19:48:19 Beuc Exp $
 
 ;;
 ;; General
@@ -536,6 +536,18 @@
   (message "Inserted sv-approve text.")
   )
 
+;; Set the project type as non-GNU
+
+(defun sv-set-as-nongnu ()
+  (interactive)
+  ""
+  (insert "Since your project is not GNU yet (at least I cannot find it on our 
official list), I set your project type as non-GNU. If you would like to offer 
your project to the GNU project, please:
+- fix the issues we mentioned, as the Savannah policies also apply for GNU 
projects
+- then contact the GNU Eval team, following the instructions at 
http://www.gnu.org/help/evaluation.html .
+\n")
+  (message "Inserted sv-approve-as-nongnu text.")
+  )
+
 ;; Approve as non-GNU
 
 (defun sv-approve-as-nongnu ()
@@ -548,6 +560,7 @@
 Regards.\n")
   (message "Inserted sv-approve-as-nongnu text.")
   )
+
 
 ;; Approve without source code (and will be checked later)
 ;; Once the user acknowledges, use sv-approve().