diff options
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/sendmail.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 437f3b8c2b4..5c33f370e93 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el @@ -88,6 +88,10 @@ This file typically should be in same format as the `.mailrc' file used by the `Mail' or `mailx' program. This file need not actually exist.") +(defvar mail-setup-hook nil + "Normal hook, run each time a new outgoing mail message is initialized. +The function `mail-setup' runs this hook.") + (defvar mail-aliases t "Alist of mail address aliases, or t meaning should be initialized from your mail aliases file. @@ -929,8 +933,8 @@ a Reply-to: field with that address is inserted. If `mail-archive-file-name' is non-nil, an FCC field with that file name is inserted. -If `mail-setup-hook' is bound, its value is called with no arguments -after the message is initialized. It can add more default fields. +The normal hook `mail-setup-hook' is run after the message is +initialized. It can add more default fields to the message. When calling from a program, the first argument if non-nil says not to erase the existing contents of the `*mail*' buffer. |