Function: gnus-agent-flush-server

gnus-agent-flush-server is a byte-compiled function defined in gnus-agent.el.gz.

Signature

(gnus-agent-flush-server &optional SERVER-OR-METHOD)

Documentation

Flush all agent index files for every subscribed group within the given SERVER-OR-METHOD. When called with nil, the current value of gnus-command-method identifies the server.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-agent.el.gz
(defun gnus-agent-flush-server (&optional server-or-method)
  "Flush all agent index files for every subscribed group within
the given SERVER-OR-METHOD.  When called with nil, the current
value of gnus-command-method identifies the server."
  (let* ((gnus-command-method (if server-or-method
				  (gnus-server-to-method server-or-method)
				gnus-command-method))
	 (alist gnus-newsrc-alist))
    (while alist
      (let ((entry (pop alist)))
	(when (gnus-methods-equal-p gnus-command-method (gnus-info-method entry))
	  (gnus-agent-flush-group (gnus-info-group entry)))))))