(require 'wid-edit)
(require 'nnheader)
+(autoload 'message-y-or-n-p "message" nil nil 'macro)
(require 'gnus-vers)
(defgroup gnus-summary-sort nil
"Sorting the summary buffer."
- :link '(custom-manual "(gnus)Summary Sorting")
+ :link '(custom-manual "(gnus)Sorting the Summary Buffer")
:group 'gnus-summary)
(defgroup gnus-summary-visual nil
(\"mail\\\\.me\" (gnus-use-scoring t))
(\"list\\\\..*\" (total-expire . t)
(broken-reply-to . t)))"
+ :version "21.4"
:group 'gnus-group-various
:type '(repeat (cons regexp
(repeat sexp))))
"Return GROUP's to-address."
:variable-document
"*Alist of group regexps and correspondent to-addresses."
+ :variable-group gnus-group-parameter
:parameter-type '(gnus-email-address :tag "To Address")
:parameter-document "\
This will be used when doing followups and posts.
"Return GROUP's to-list."
:variable-document
"*Alist of group regexps and correspondent to-lists."
+ :variable-group gnus-group-parameter
:parameter-type '(gnus-email-address :tag "To List")
:parameter-document "\
This address will be used when doing a `a' in the group.
"Return GROUP's subscription status."
:variable-document
"*Groups which are automatically considered subscribed."
+ :variable-group gnus-group-parameter
:parameter-type '(const :tag "Subscribed" t)
:parameter-document "\
Gnus assumed that you are subscribed to the To/List address.
"Return GROUP's initial input of the number of articles."
:variable-document
"*Alist of group regexps and its initial input of the number of articles."
+ :variable-group gnus-group-parameter
:parameter-type '(choice :tag "Initial Input for Large Newsgroup"
(const :tag "All" nil)
(integer))
When set, Gnus will prefer using the locally stored content rather
than re-fetching it from the server. You also need to enable
`gnus-agent' for this to have any affect."
- :version "21.3"
+ :version "21.4"
:group 'gnus-agent
:type 'boolean)
You may customize gnus-agent to disable its use. However, some
back ends have started to use the agent as a client-side cache.
Disabling the agent may result in noticeable loss of performance."
- :version "21.3"
+ :version "21.4"
:group 'gnus-agent
:type 'boolean)
`emacs-gnus' plus system type\), `gnus-mime-edit' \(show Gnus version and
MIME Edit User-Agent\) or a custom string. If you set it to a string,
be sure to use a valid format, see RFC 2616."
+ :version "21.4"
:group 'gnus-message
:type '(choice
(item :tag "Show Gnus version and MIME Edit User-Agent"
(eval-and-compile
(unless (featurep 'xemacs)
- (autoload 'x-face-decode-message-header "x-face-e21")
(autoload 'x-face-mule-gnus-article-display-x-face "x-face-mule")))
(unless (and (fboundp 'base64-encode-string)
(defun gnus-shutdown (symbol)
"Shut down everything that waits for SYMBOL."
- (let ((alist gnus-shutdown-alist)
- entry)
- (while (setq entry (pop alist))
- (when (memq symbol (cdr entry))
- (funcall (car entry))))))
+ (dolist (entry gnus-shutdown-alist)
+ (when (memq symbol (cdr entry))
+ (funcall (car entry)))))
\f
;;;