Function: mml-preview-insert-mail-followup-to

mml-preview-insert-mail-followup-to is a byte-compiled function defined in mml.el.gz.

Signature

(mml-preview-insert-mail-followup-to)

Documentation

Insert a Mail-Followup-To header before previewing an article.

Should be adopted if code in message-send-mail is changed.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/mml.el.gz
(defun mml-preview-insert-mail-followup-to ()
  "Insert a Mail-Followup-To header before previewing an article.
Should be adopted if code in `message-send-mail' is changed."
  (when (and (message-mail-p)
	     (message-subscribed-p)
	     (not (mail-fetch-field "mail-followup-to"))
	     (message-make-mail-followup-to))
    (message-position-on-field "Mail-Followup-To" "X-Draft-From")
    (insert (message-make-mail-followup-to))))