Function: rmail-insert-mime-forwarded-message

rmail-insert-mime-forwarded-message is a byte-compiled function defined in rmailmm.el.gz.

Signature

(rmail-insert-mime-forwarded-message FORWARD-BUFFER)

Documentation

Insert the message in FORWARD-BUFFER as a forwarded message.

This is the usual value of rmail-insert-mime-forwarded-message-function.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmailmm.el.gz
(defun rmail-insert-mime-forwarded-message (forward-buffer)
  "Insert the message in FORWARD-BUFFER as a forwarded message.
This is the usual value of `rmail-insert-mime-forwarded-message-function'."
  (let (contents-buffer start end)
    (with-current-buffer forward-buffer
      (setq contents-buffer
	    (if rmail-buffer-swapped
		rmail-view-buffer
	      forward-buffer)
	    start (rmail-msgbeg rmail-current-message)
	    end (rmail-msgend rmail-current-message)))
    (message-forward-make-body-mime contents-buffer start end)))