diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-07-17 23:00:06 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-07-17 23:00:06 +0000 |
| commit | 8b262cbcd53b15b1159e5df62f2a5525cdba5bc6 (patch) | |
| tree | 387f31e8560b3a8e7346919f2336d191d5a871ad | |
| parent | 6f9340dd3cf9880962a5edeafb763b7b8b8ef9d6 (diff) | |
| download | emacs-8b262cbcd53b15b1159e5df62f2a5525cdba5bc6.tar.gz | |
(mail-setup-hook): New defvar.
(mail): Doc fix.
| -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. |