From: yamaoka <yamaoka>
Date: Tue, 5 Aug 2003 01:01:58 +0000 (+0000)
Subject: Synch to Gnus 200308050104.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=99c4b1421d0bc9b74198a71b7f58698db80e3f4b;p=elisp%2Fgnus.git-

Synch to Gnus 200308050104.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13fb431..53730dd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2003-08-05  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus-start.el (gnus-save-killed-list): Fix customization type.
+	* gnus-sum.el (gnus-thread-hide-subtree): Ditto.
+	* gnus.el (gnus-use-long-file-name): Ditto.
+
 2003-08-04  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus-group.el (gnus-group-rename-group): Don't allow renaming to
diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 72337cd..22ace2b 100644
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -250,7 +250,12 @@ nil if you set this variable to nil.
 This variable can also be a regexp.  In that case, all groups that do
 not match this regexp will be removed before saving the list."
   :group 'gnus-newsrc
-  :type 'boolean)
+  :type '(radio (sexp :format "Non-nil\n"
+		      :match (lambda (widget value)
+			       (and value (not (stringp value))))
+		      :value t)
+		(const nil)
+		(regexp :size 0)))
 
 (defcustom gnus-ignored-newsgroups
   (mapconcat 'identity
diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 7fb824d..3967d55 100644
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -264,7 +264,12 @@ If threads are hidden, you have to run the command
 `gnus-summary-show-thread' by hand or use `gnus-select-article-hook'
 to expose hidden threads."
   :group 'gnus-thread
-  :type 'boolean)
+  :type '(radio (sexp :format "Non-nil\n"
+		      :match (lambda (widget value)
+			       (not (or (consp value) (functionp value))))
+		      :value t)
+		(const nil)
+		(sexp :tag "Predicate specifier" :size 0)))
 
 (defcustom gnus-thread-hide-killed t
   "*If non-nil, hide killed threads automatically."
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 75bfcb3..dd82e1d 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1401,7 +1401,14 @@ Note that the default for this variable varies according to what system
 type you're using.  On `usg-unix-v' and `xenix' this variable defaults
 to nil while on all other systems it defaults to t."
   :group 'gnus-start
-  :type 'boolean)
+  :type '(radio (sexp :format "Non-nil\n"
+		      :match (lambda (widget value)
+			       (and value (not (listp value))))
+		      :value t)
+		(const nil)
+		(checklist (const :format "%v " not-score)
+			   (const :format "%v " not-save)
+			   (const not-kill))))
 
 (defcustom gnus-kill-files-directory gnus-directory
   "*Name of the directory where kill files will be stored (default \"~/News\")."