Function: gnus-dired-mail-buffers

gnus-dired-mail-buffers is a byte-compiled function defined in gnus-dired.el.gz.

Signature

(gnus-dired-mail-buffers)

Documentation

Return a list of active mail composition buffers.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-dired.el.gz
(defun gnus-dired-mail-buffers ()
  "Return a list of active mail composition buffers."
  (if (and (memq gnus-dired-mail-mode '(message-user-agent gnus-user-agent))
	   (require 'message)
	   (fboundp 'message-buffers))
      (message-buffers)
    ;; Cf. `message-buffers' in `message.el':
    (let (buffers)
      (save-excursion
	(dolist (buffer (buffer-list t))
	  (set-buffer buffer)
	  (when (eq major-mode 'mail-mode)
	    (push (buffer-name buffer) buffers))))
      (nreverse buffers))))