* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13fb431..53730dd 100644 (file)
--- 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 e04af62..c4feef0 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -242,7 +242,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 1fbeb5f..c88e981 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -253,7 +253,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 7abf9d3..0005ed3 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1364,7 +1364,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\")."