From 8b262cbcd53b15b1159e5df62f2a5525cdba5bc6 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 17 Jul 1995 23:00:06 +0000 Subject: [PATCH] (mail-setup-hook): New defvar. (mail): Doc fix. --- lisp/mail/sendmail.el | 8 ++++++-- 1 file 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. -- 2.39.2