diff options
Diffstat (limited to 'lisp/gnus/gnus-cus.el')
| -rw-r--r-- | lisp/gnus/gnus-cus.el | 20 |
1 files changed, 13 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-cus.el b/lisp/gnus/gnus-cus.el index 66fa3e0590f..fb8b300e350 100644 --- a/lisp/gnus/gnus-cus.el +++ b/lisp/gnus/gnus-cus.el @@ -253,7 +253,15 @@ DOC is a documentation string for the parameter.") (defconst gnus-extra-group-parameters '((uidvalidity (string :tag "IMAP uidvalidity") "\ -Server-assigned value attached to IMAP groups, used to maintain consistency.")) +Server-assigned value attached to IMAP groups, used to maintain consistency.") + (modseq (choice :tag "modseq" + (const :tag "None" nil) + (string :tag "Sequence number")) + "Modification seqence number") + (active (cons :tag "active" (integer :tag "min") (integer :tag "max")) + "active") + (permanent-flags (repeat :tag "Permanent Flags" (symbol :tag "Flag")) + "Permanent Flags")) "Alist of group parameters that are not also topic parameters. Each entry has the form (NAME TYPE DOC), where NAME is the parameter @@ -369,7 +377,7 @@ category.")) (unless (or topic (setq info (gnus-get-info group))) (error "Killed group; can't be edited")) ;; Ready. - (gnus-kill-buffer (gnus-get-buffer-create "*Gnus Customize*")) + (gnus-kill-buffer "*Gnus Customize*") (switch-to-buffer (gnus-get-buffer-create "*Gnus Customize*")) (gnus-custom-mode) (make-local-variable 'gnus-custom-group) @@ -406,7 +414,7 @@ category.")) ;; every duplicate ends up being displayed. So, rather than ;; display them, remove them from the list. - (let ((tmp (setq values (gnus-copy-sequence values))) + (let ((tmp (setq values (copy-tree values))) elem) (while (cdr tmp) (while (setq elem (assq (caar tmp) (cdr tmp))) @@ -1021,9 +1029,7 @@ articles in the thread. (cons 'agent-low-score gnus-agent-low-score) (cons 'agent-high-score gnus-agent-high-score)))) - (let ((old (get-buffer "*Gnus Agent Category Customize*"))) - (when old - (gnus-kill-buffer old))) + (gnus-kill-buffer "*Gnus Agent Category Customize*") (switch-to-buffer (gnus-get-buffer-create "*Gnus Agent Category Customize*")) @@ -1051,7 +1057,7 @@ articles in the thread. (when (get-buffer gnus-category-buffer) (switch-to-buffer (get-buffer gnus-category-buffer)) (gnus-category-list))) - "Done") + "Done") (widget-insert "\n Note: Empty fields default to the customizable global\ variables.\n\n") |