Function: mh-mh-forward-message

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

Signature

(mh-mh-forward-message &optional DESCRIPTION FOLDER MESSAGES)

Documentation

Add tag to forward a message.

You are prompted for a content DESCRIPTION, the name of the FOLDER in which the messages to forward are located, and the MESSAGES' numbers.

See also M-x mh-mh-to-mime (mh-mh-to-mime).

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-mime.el.gz
(defun mh-mh-forward-message (&optional description folder messages)
  "Add tag to forward a message.
You are prompted for a content DESCRIPTION, the name of the
FOLDER in which the messages to forward are located, and the
MESSAGES' numbers.

See also \\[mh-mh-to-mime]."
  (interactive (list
                (mml-minibuffer-read-description)
                (mh-prompt-for-folder "Message from" mh-sent-from-folder nil)
                (read-string (format-prompt "Messages" mh-sent-from-msg))))
  (beginning-of-line)
  (insert "#forw [")
  (and description
       (not (string= description ""))
       (insert description))
  (insert "]")
  (and folder
       (not (string= folder ""))
       (insert " " folder))
  (if (and messages
           (not (string= messages "")))
      (let ((start (point)))
        (insert " " messages)
        (subst-char-in-region start (point) ?, ? ))
    (if (numberp mh-sent-from-msg)
        (insert " " (int-to-string mh-sent-from-msg))))
  (insert "\n"))