(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.")
Always display this group, even when there are no unread articles
in it..")
- (charset (string :tag "Charset") "\
-The default charset to use in the group."))
+ (charset (symbol :tag "Charset") "\
+The default charset to use in the group.")
+
+ (highlight-words
+ (choice :tag "Highlight words"
+ :value nil
+ (repeat (list (regexp :tag "Highlight regexp")
+ (number :tag "Group for entire word" 0)
+ (number :tag "Group for displayed part" 0)
+ (symbol :tag "Face"
+ gnus-emphasis-highlight-words))))
+ "highlight regexps.
+See gnus-emphasis-alist."))
"Alist of valid group parameters.
Each entry has the form (NAME TYPE DOC), where NAME is the parameter
:tag "Method"
:value (gnus-info-method info))))
(use-local-map widget-keymap)
- (widget-setup)))
+ (widget-setup)
+ (goto-char (point-min))))
(defun gnus-group-customize-done (&rest ignore)
"Apply changes and bury the buffer."