mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(mail-send-hook): Add defvar.

Browse source 
(mail-send): Run mail-send-hook before the `Sending...' message.
This commit is contained in:
Richard M. Stallman 1994-06-15 22:16:04 +00:00
parent ef2a22d0bb
commit da5667c68a
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/sendmail.el
View file

@ -154,6 +154,9 @@ actually occur.")
(setq mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table))
(modify-syntax-entry ?% ". " mail-mode-syntax-table)))
(defvar mail-send-hook nil
"Normal hook run before sending mail, in Mail mode.")
(defun mail-setup (to subject in-reply-to cc replybuffer actions)
(if (eq mail-aliases t)
(progn
@ -353,8 +356,8 @@ the user from the mailer."
(or (buffer-modified-p)
(y-or-n-p "Message already sent; resend? ")))
(progn
(message "Sending...")
(run-hooks 'mail-send-hook)
(message "Sending...")
(funcall send-mail-function)
;; Now perform actions on successful sending.
(while mail-send-actions