From 29ba2083b5f12d2c486ff023a534dd20c4db0b1b Mon Sep 17 00:00:00 2001 From: keiichi Date: Thu, 26 Sep 2002 13:06:41 +0000 Subject: [PATCH] (gnus-user-group-parameters): New variable. (gnus-group-customize): Add `gnus-user-group-parameters' to customize list. --- lisp/gnus-cus.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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) -- 1.7.10.4