Function: rmail-summary-output-as-seen

rmail-summary-output-as-seen is an interactive and byte-compiled function defined in rmailsum.el.gz.

Signature

(rmail-summary-output-as-seen &optional FILE-NAME N)

Documentation

Append this message to mbox file named FILE-NAME.

A prefix argument N says to output that many consecutive messages, from the summary, starting with the current one. Deleted messages are skipped and don't count. When called from Lisp code, N may be omitted and defaults to 1.

This outputs the message header as you see it (or would see it) displayed in Rmail.

The default file name comes from rmail-default-file, which is updated to the name you use in this command.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailsum.el.gz
(defun rmail-summary-output-as-seen (&optional file-name n)
  "Append this message to mbox file named FILE-NAME.
A prefix argument N says to output that many consecutive messages,
from the summary, starting with the current one.
Deleted messages are skipped and don't count.
When called from Lisp code, N may be omitted and defaults to 1.

This outputs the message header as you see it (or would see it)
displayed in Rmail.

The default file name comes from `rmail-default-file',
which is updated to the name you use in this command."
  (interactive
   (progn (require 'rmailout)
	  (list (rmail-output-read-file-name)
		(prefix-numeric-value current-prefix-arg))))
  (require 'rmailout) ; for rmail-output-as-seen in non-interactive case
  (let ((i 0) prev-msg)
    (while
	(and (< i n)
	     (progn (rmail-summary-goto-msg)
		    (not (eq prev-msg
			     (setq prev-msg
				   (with-current-buffer rmail-buffer
				     rmail-current-message))))))
      (setq i (1+ i))
      (with-current-buffer rmail-buffer
	(let ((rmail-delete-after-output nil))
	  (rmail-output-as-seen file-name 1)))
      (if rmail-delete-after-output
	  (rmail-summary-delete-forward nil)
	(if (< i n)
	    (rmail-summary-next-msg 1))))))