(\"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))))
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"
(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
;;;