*** empty log message ***

[gnus] / lisp / gnus-cus.el

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 712d022..e50aef0 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,7 +167,7 @@ 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") "\
+    (charset (symbol :tag "Charset") "\

 The default charset to use in the group."))
   "Alist of valid group parameters.
 
 The default charset to use in the group."))
   "Alist of valid group parameters.
 


@@ -200,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 ")
     (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"
        (widget-create 'info-link
                       :help-echo "Push me to learn more."
                       :tag "group parameters"


@@ -220,7 +225,7 @@ DOC is a documentation string for the parameter.")
     (make-local-variable 'gnus-custom-params)
     (setq gnus-custom-params
          (widget-create 'group
     (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
                                    (gnus-info-params info)
                                  (gnus-topic-parameters topic))
                         `(set :inline t


@@ -274,7 +279,7 @@ form, but who cares?"
   "Apply changes and bury the buffer."
   (interactive)
   (if gnus-custom-topic
   "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))
                                 (widget-value gnus-custom-params))
     (gnus-group-edit-group-done 'params gnus-custom-group
                                (widget-value gnus-custom-params))