Mercurial > emacs

changeset 4844:25d94807689e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-retry-setup-hook): New hook variable. (rmail-retry-failure): Use that variable.
author Richard M. Stallman <rms@gnu.org>
date Mon, 11 Oct 1993 03:52:24 +0000
parents 136e32c763e3
children 6b7954afe2bf
files lisp/mail/rmail.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Sat Oct 09 21:51:36 1993 +0000
+++ b/lisp/mail/rmail.el	Mon Oct 11 03:52:24 1993 +0000
@@ -85,6 +85,10 @@
 (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 @@
     ;; 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