Function: mh-tool-bar-reply-generator

mh-tool-bar-reply-generator is a macro defined in mh-tool-bar.el.gz.

Signature

(mh-tool-bar-reply-generator FUNCTION RECIPIENT FOLDER-BUFFER-FLAG)

Documentation

Generate FUNCTION that replies to RECIPIENT.

If FOLDER-BUFFER-FLAG is nil then the function generated... When INCLUDE-FLAG is non-nil, include message body being replied to.

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-tool-bar.el.gz
(defmacro mh-tool-bar-reply-generator (function recipient folder-buffer-flag)
  "Generate FUNCTION that replies to RECIPIENT.
If FOLDER-BUFFER-FLAG is nil then the function generated...
When INCLUDE-FLAG is non-nil, include message body being replied to."
  `(defun ,function (&optional arg)
     ,(format "Reply to \"%s\".\nWhen ARG is non-nil include message in reply."
              recipient)
     (interactive "P")
     ,(if folder-buffer-flag nil '(set-buffer mh-show-folder-buffer))
     (mh-reply (mh-get-msg-num nil) ,recipient arg)))