From b30b6e2897d2b38307b3d6c56f016e8da5f28311 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 11 Oct 1993 03:52:24 +0000 Subject: [PATCH] (rmail-retry-setup-hook): New hook variable. (rmail-retry-failure): Use that variable. --- lisp/mail/rmail.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index c44284f3779..e73a6855b3e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -85,6 +85,10 @@ and the value of the environment variable MAIL overrides it).") (defvar rmail-mail-new-frame nil "*Non-nil means Rmail makes a new frame for composing outgoing mail.") +;;;###autoload +(defvar rmail-retry-setup-hook nil + "Hook that `rmail-retry-failure' uses in place of `mail-setup-hook'.") + ;; These may be altered by site-init.el to match the format of mmdf files ;; delimiting used on a given host (delim1 and delim2 from the config ;; files). @@ -1949,7 +1953,8 @@ the body of the original message; otherwise copy the current message." ;; Start sending a new message; default header fields from the original. ;; Turn off the usual actions for initializing the message body ;; because we want to get only the text from the failure message. - (let (mail-signature mail-setup-hook) + (let (mail-signature + (mail-setup-hook rmail-retry-setup-hook)) (if (rmail-start-mail nil to subj irp2 cc (current-buffer)) ;; Insert original text as initial text of new draft message. (progn -- 2.39.5