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

savannah



savannahの他のリストも読みたくなったので defcustomしてみました。

2003-05-17  Masatake YAMATO  <jet@gyve.org>

	* shimbun/sb-savannah.el (shimbun-savannah-group-path-alist): 
	make this variable customizable.


Index: shimbun/sb-savannah.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-savannah.el,v
retrieving revision 1.8
diff -u -r1.8 sb-savannah.el
--- shimbun/sb-savannah.el	13 Mar 2003 22:58:42 -0000	1.8
+++ shimbun/sb-savannah.el	17 May 2003 06:43:30 -0000
@@ -38,19 +38,23 @@
 
 (defvar shimbun-savannah-url "http://mail.gnu.org/archive/html/")
 
-(defvar shimbun-savannah-group-path-alist
-  '(("bug-gnu-emacs" . "bug-gnu-emacs")
-    ("emacs-bidi" . "emacs-bidi")
-    ("emacs-commit" . "emacs-commit")
-    ("emacs-devel" . "emacs-devel")
-    ("emacs-diffs" . "emacs-diffs")
-    ("emacs-pretest-bug" . "emacs-pretest-bug")
-    ("gnu-emacs-sources" . "gnu-emacs-sources")
-    ("help-emacs-windows" . "help-emacs-windows")
-    ("help-gnu-emacs" . "help-gnu-emacs")
-    ("info-gnu-emacs" . "info-gnu-emacs")
-    ("tramp-devel" . "tramp-devel")
-    ("vms-gnu-emacs" . "vms-gnu-emacs")))
+(defcustom shimbun-savannah-group-path-alist '(("bug-gnu-emacs" . "bug-gnu-emacs")
+					       ("emacs-bidi" . "emacs-bidi")
+					       ("emacs-commit" . "emacs-commit")
+					       ("emacs-devel" . "emacs-devel")
+					       ("emacs-diffs" . "emacs-diffs")
+					       ("emacs-pretest-bug" . "emacs-pretest-bug")
+					       ("gnu-emacs-sources" . "gnu-emacs-sources")
+					       ("help-emacs-windows" . "help-emacs-windows")
+					       ("help-gnu-emacs" . "help-gnu-emacs")
+					       ("info-gnu-emacs" . "info-gnu-emacs")
+					       ("tramp-devel" . "tramp-devel")
+					       ("vms-gnu-emacs" . "vms-gnu-emacs"))
+  "Table of mailing lists which is archived by savannah."
+  :group 'shimbun
+  :type  '(repeat
+	   (cons (string :tag "Group")
+		 (string :tag "Path"))))
 
 (defvar shimbun-savannah-groups
   (mapcar 'car shimbun-savannah-group-path-alist))