*** empty log message ***

[gnus] / lisp / gnus-cus.el

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 4a63495..ee9f042 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -104,6 +104,11 @@ is present and a string, this string will be inserted literally as a
 `gcc' header (this symbol takes precedence over any default `Gcc'
 rules as described later).")
 
 `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.")
+

     (auto-expire (const :tag "Automatic Expire" t) "\
 All articles that are read will be marked as expirable.")
 
     (auto-expire (const :tag "Automatic Expire" t) "\
 All articles that are read will be marked as expirable.")
 


@@ -162,8 +167,19 @@ An arbitrary comment on the group.")
 Always display this group, even when there are no unread articles
 in it..")
 
 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
   "Alist of valid group parameters.
 
 Each entry has the form (NAME TYPE DOC), where NAME is the parameter


@@ -268,7 +284,8 @@ form, but who cares?"
                           :tag "Method"
                           :value (gnus-info-method info))))
     (use-local-map widget-keymap)
                           :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."
 
 (defun gnus-group-customize-done (&rest ignore)
   "Apply changes and bury the buffer."