X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-cus.el;h=e50aef0ca057461d756d48bbef5323dc4d1621ca;hb=4c6769d9da96b949627f7518279fc8a85141cb0a;hp=3fca44b24fd5188fd330586877a4183db10ebc09;hpb=e308ebca5276fa8156c52b28db768c4339aca562;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 3fca44b..e50aef0 100644
--- 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.")
+
     (auto-expire (const :tag "Automatic Expire" t) "\
 All articles that are read will be marked as expirable.")
 
@@ -162,13 +167,8 @@ An arbitrary comment on the group.")
 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.") 
-
-    (iso-8859-1-forced (const :tag "Force ISO 8859-1 to default charset" 
-			      t)"\
-Force ISO 8859-1 to default charset in the group.") 
-)
+    (charset (symbol :tag "Charset") "\
+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
@@ -205,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"
@@ -225,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
@@ -279,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))