`gcc' header (this symbol takes precedence over any default `Gcc'
rules as described later).")
+ (banner (choice :tag "Banner"
+ (const signature)
+ string ) "\
+Banner to be removed from articles.")
+a
(auto-expire (const :tag "Automatic Expire" t) "\
All articles that are read will be marked as expirable.")
in it..")
(charset (string :tag "Charset") "\
-The default charset to use in the group.")
-)
+The default charset to use in the group."))
"Alist of valid group parameters.
Each entry has the form (NAME TYPE DOC), where NAME is the parameter
(defvar gnus-custom-group)
(defvar gnus-custom-topic)
-(defun gnus-group-customize (group topic)
- "Edit the group or topicon the current line."
+(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)))
(let (info
(types (mapcar (lambda (entry)
(make-local-variable 'gnus-custom-topic)
(setq gnus-custom-topic topic)
(widget-insert "Customize the ")
- (if group
+ (if group
(widget-create 'info-link
:help-echo "Push me to learn more."
:tag "group parameters"
(make-local-variable 'gnus-custom-params)
(setq gnus-custom-params
(widget-create 'group
- :value (if group
+ :value (if group
(gnus-info-params info)
(gnus-topic-parameters topic))
`(set :inline t
"Apply changes and bury the buffer."
(interactive)
(if gnus-custom-topic
- (gnus-topic-set-parameters gnus-custom-topic
+ (gnus-topic-set-parameters gnus-custom-topic
(widget-value gnus-custom-params))
(gnus-group-edit-group-done 'params gnus-custom-group
(widget-value gnus-custom-params))
(gnus-score-string :tag "Subject")
(gnus-score-string :tag "References")
(gnus-score-string :tag "Xref")
+ (gnus-score-string :tag "Extra")
(gnus-score-string :tag "Message-ID")
(gnus-score-integer :tag "Lines")
(gnus-score-integer :tag "Chars")