Function: message-output

message-output is a byte-compiled function defined in message.el.gz.

Signature

(message-output FILENAME)

Documentation

Append this article to Unix/babyl mail file FILENAME.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-output (filename)
  "Append this article to Unix/babyl mail file FILENAME."
  (if (or (and (file-readable-p filename)
	       (mail-file-babyl-p filename))
	  ;; gnus-output-to-mail does the wrong thing with live, mbox
	  ;; Rmail buffers in Emacs 23.
          ;; https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=597255
	  (let ((buff (find-buffer-visiting filename)))
	    (and buff (with-current-buffer buff
			(eq major-mode 'rmail-mode)))))
      (gnus-output-to-rmail filename t)
    (gnus-output-to-mail filename t)))