[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
savannah
- From: Masatake YAMATO <jet@xxxxxxxx>
- Date: Sat, 17 May 2003 17:17:30 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 04853
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))