From: keiichi <keiichi>
Date: Thu, 26 Sep 2002 13:06:41 +0000 (+0000)
Subject: (gnus-user-group-parameters): New variable.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=29ba2083b5f12d2c486ff023a534dd20c4db0b1b;p=elisp%2Fgnus.git-

(gnus-user-group-parameters): New variable.
(gnus-group-customize): Add `gnus-user-group-parameters' to customize list.
---

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 1bc3c6c..30c356f 100644
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -267,6 +267,13 @@ DOC is a documentation string for the parameter.")
 (defvar gnus-custom-group)
 (defvar gnus-custom-topic)
 
+(defvar gnus-user-group-parameters nil
+  "Alist of group parameters that are defined by user.
+
+Each entry has the form (NAME TYPE DOC), where NAME is the parameter
+itself (a symbol), TYPE is the parameters type (a sexp widget), and
+DOC is a documentation string for the parameter.")
+
 (defun gnus-group-customize (group &optional topic)
   "Edit the group or topic on the current line."
   (interactive (list (gnus-group-group-name) (gnus-group-topic-name)))
@@ -279,7 +286,8 @@ DOC is a documentation string for the parameter.")
 		       (append gnus-group-parameters 
 			       (if group
 				   gnus-extra-group-parameters
-				 gnus-extra-topic-parameters)))))
+				 gnus-extra-topic-parameters)
+			       gnus-user-group-parameters))))
     (unless (or group topic)
       (error "No group on current line"))
     (when (and group topic)