*** empty log message ***

[gnus] / lisp / gnus-cus.el

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 7474f37..a560e2a 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).")
 
+    (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.")
 
@@ -163,8 +168,7 @@ 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.") 
-)
+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
@@ -176,8 +180,8 @@ DOC is a documentation string for 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)
@@ -201,7 +205,7 @@ DOC is a documentation string for the parameter.")
     (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"
@@ -221,7 +225,7 @@ DOC is a documentation string for the parameter.")
     (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
@@ -275,7 +279,7 @@ form, but who cares?"
   "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))
@@ -601,6 +605,7 @@ if you do all your changes will be lost.  ")
                                     (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")