mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

(rmail-retry-setup-hook): New hook variable.

Browse Source 
(rmail-retry-failure): Use that variable.
This commit is contained in:
Richard M. Stallman 1993-10-11 03:52:24 +00:00
parent 4cd7a37326
commit b30b6e2897
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/mail/rmail.el
View File

@ -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