Importing Pterodactyl Gnus v0.83.

[elisp/gnus.git-] / lisp / gnus-cus.el

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index b71e2a9..0f3d5d3 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,9 +167,8 @@ 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."))

   "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

@@ -176,8 +180,8 @@ DOC is a documentation string for the parameter.")
 (defvar gnus-custom-group)
 (defvar gnus-custom-topic)
 
 (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)
   (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 ")
     (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"

@@ -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
     (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

@@ -269,13 +273,14 @@ 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."
   (interactive)
   (if gnus-custom-topic
 
 (defun gnus-group-customize-done (&rest ignore)
   "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))