(require 'wid-edit)
(require 'gnus-score)
-(require 'gnus-topic)
;;; Widgets:
`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.")
(visible (const :tag "Permanently visible" t) "\
Always display this group, even when there are no unread articles
-in it..")
-
- (charset (symbol :tag "Charset") "\
-The default charset to use in the group."))
+in it.."))
"Alist of valid group parameters.
Each entry has the form (NAME TYPE DOC), where NAME is the parameter
(defvar gnus-custom-params)
(defvar gnus-custom-method)
(defvar gnus-custom-group)
-(defvar gnus-custom-topic)
-(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)))
+(defun gnus-group-customize (group)
+ "Edit the group on the current line."
+ (interactive (list (gnus-group-group-name)))
(let (info
(types (mapcar (lambda (entry)
`(cons :format "%v%h\n"
(const :format "" ,(nth 0 entry))
,(nth 1 entry)))
gnus-group-parameters)))
- (unless (or group topic)
+ (unless group
(error "No group on current line"))
- (when (and group topic)
- (error "Both a group an topic on current line"))
- (unless (or topic (setq info (gnus-get-info group)))
+ (unless (setq info (gnus-get-info group))
(error "Killed group; can't be edited"))
;; Ready.
(kill-buffer (gnus-get-buffer-create "*Gnus Customize*"))
(gnus-custom-mode)
(make-local-variable 'gnus-custom-group)
(setq gnus-custom-group group)
- (make-local-variable 'gnus-custom-topic)
- (setq gnus-custom-topic topic)
(widget-insert "Customize the ")
- (if group
- (widget-create 'info-link
- :help-echo "Push me to learn more."
- :tag "group parameters"
- "(gnus)Group Parameters")
- (widget-create 'info-link
- :help-echo "Push me to learn more."
- :tag "topic parameters"
- "(gnus)Topic Parameters"))
+ (widget-create 'info-link
+ :help-echo "Push me to learn more."
+ :tag "group parameters"
+ "(gnus)Group Parameters")
(widget-insert " for <")
- (widget-insert (or group topic))
+ (widget-insert group)
(widget-insert "> and press ")
(widget-create 'push-button
:tag "done"
(make-local-variable 'gnus-custom-params)
(setq gnus-custom-params
(widget-create 'group
- :value (if group
- (gnus-info-params info)
- (gnus-topic-parameters topic))
+ :value (gnus-info-params info)
`(set :inline t
:greedy t
:tag "Parameters"
:format "%t:\n%h%v"
:doc "\
These special paramerters are recognized by Gnus.
-Check the [ ] for the parameters you want to apply to this group or
-to the groups in this topic, then edit the value to suit your taste."
+Check the [ ] for the parameters you want to apply to this group, then
+edit the value to suit your taste."
,@types)
'(repeat :inline t
:tag "Variables"
put something like `(dummy-variable (ding))' in the parameters of that
group. `dummy-variable' will be set to the result of the `(ding)'
form, but who cares?"
- (cons :format "%v" :value (nil . nil)
+ (group :value (nil nil)
(symbol :tag "Variable")
(sexp :tag
"Value")))
'(repeat :inline t
:tag "Unknown entries"
sexp)))
- (when group
- (widget-insert "\n\nYou can also edit the ")
- (widget-create 'info-link
- :tag "select method"
- :help-echo "Push me to learn more about select methods."
- "(gnus)Select Methods")
- (widget-insert " for the group.\n")
- (setq gnus-custom-method
- (widget-create 'sexp
- :tag "Method"
- :value (gnus-info-method info))))
+ (widget-insert "\n\nYou can also edit the ")
+ (widget-create 'info-link
+ :tag "select method"
+ :help-echo "Push me to learn more about select methods."
+ "(gnus)Select Methods")
+ (widget-insert " for the group.\n")
+ (setq gnus-custom-method
+ (widget-create 'sexp
+ :tag "Method"
+ :value (gnus-info-method info)))
(use-local-map widget-keymap)
(widget-setup)))
(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
- (widget-value gnus-custom-params))
- (gnus-group-edit-group-done 'params gnus-custom-group
- (widget-value gnus-custom-params))
- (gnus-group-edit-group-done 'method gnus-custom-group
- (widget-value gnus-custom-method)))
+ (gnus-group-edit-group-done 'params gnus-custom-group
+ (widget-value gnus-custom-params))
+ (gnus-group-edit-group-done 'method gnus-custom-group
+ (widget-value gnus-custom-method))
(bury-buffer))
;;; Score Customization:
(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")
projects / elisp / gnus.git- / blobdiff