Mercurial > emacs
changeset 12564:3cd5105aeb2b
(mail-setup-hook): New defvar.
(mail): Doc fix.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Mon, 17 Jul 1995 23:00:06 +0000 |
| parents | ed4cc6931e88 |
| children | c0a5d0d00c18 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Mon Jul 17 22:59:04 1995 +0000 +++ b/lisp/mail/sendmail.el Mon Jul 17 23:00:06 1995 +0000 @@ -88,6 +88,10 @@ 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 @@ 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.