Function: gnus-archive-server-wanted-p

gnus-archive-server-wanted-p is a byte-compiled function defined in gnus.el.gz.

Signature

(gnus-archive-server-wanted-p)

Documentation

Say whether the user wants to use the archive server.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus.el.gz
(defun gnus-archive-server-wanted-p ()
  "Say whether the user wants to use the archive server."
  (cond
   ((or (not gnus-message-archive-method)
	(not gnus-message-archive-group))
    nil)
   ((and gnus-message-archive-method gnus-message-archive-group)
    t)
   (t
    (let ((active (cadr (assq 'nnfolder-active-file
			      gnus-message-archive-method))))
      (and active
	   (file-exists-p active))))))