Function: mh-mml-forward-message

mh-mml-forward-message is an autoloaded and byte-compiled function defined in mh-mime.el.gz.

Signature

(mh-mml-forward-message DESCRIPTION FOLDER MESSAGE)

Documentation

Forward a message as attachment.

The function will prompt the user for a DESCRIPTION, a FOLDER and MESSAGE number.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
;;;###mh-autoload
(defun mh-mml-forward-message (description folder message)
  "Forward a message as attachment.

The function will prompt the user for a DESCRIPTION, a FOLDER and
MESSAGE number."
  (let ((msg (if (and (equal message "") (numberp mh-sent-from-msg))
                 mh-sent-from-msg
               (string-to-number message))))
    (cond ((integerp msg)
           (mml-attach-file (format "%s%s/%d"
                                    mh-user-path (substring folder 1) msg)
                            "message/rfc822"
                            (if (string= "" description) nil description)
                            "inline"))
          (t (error "The message number, %s, is not an integer" msg)))))