Mercurial > emacs
comparison lisp/mail/sendmail.el @ 106353:dec940ff2ab6
* mail/sendmail.el (mail-setup-hook, mail-send-hook): Doc fixes.
* gnus/message.el (message-setup-hook, message-send-hook): Make into aliases
for mail-*-hook.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 01 Dec 2009 16:20:59 +0000 |
parents | 471612501920 |
children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
106352:3b90f039f42b | 106353:dec940ff2ab6 |
---|---|
219 :type '(choice (const nil) file) | 219 :type '(choice (const nil) file) |
220 :group 'sendmail) | 220 :group 'sendmail) |
221 | 221 |
222 ;;;###autoload | 222 ;;;###autoload |
223 (defcustom mail-setup-hook nil | 223 (defcustom mail-setup-hook nil |
224 "Normal hook, run each time a new outgoing mail message is initialized. | 224 "Normal hook, run each time a new outgoing message is initialized." |
225 The function `mail-setup' runs this hook." | |
226 :type 'hook | 225 :type 'hook |
227 :options '(fortune-to-signature spook mail-abbrevs-setup) | 226 :options '(fortune-to-signature spook mail-abbrevs-setup) |
228 :group 'sendmail) | 227 :group 'sendmail) |
229 | 228 |
230 ;;;###autoload | 229 ;;;###autoload |
814 (if summary-buffer (switch-to-buffer summary-buffer) | 813 (if summary-buffer (switch-to-buffer summary-buffer) |
815 (delete-window)) | 814 (delete-window)) |
816 (switch-to-buffer newbuf)))))) | 815 (switch-to-buffer newbuf)))))) |
817 | 816 |
818 (defcustom mail-send-hook nil | 817 (defcustom mail-send-hook nil |
819 "Hook run just before sending mail with `mail-send'." | 818 "Hook run just before sending a message." |
820 :type 'hook | 819 :type 'hook |
821 :options '(flyspell-mode-off) | 820 :options '(flyspell-mode-off) |
822 :group 'sendmail) | 821 :group 'sendmail) |
823 | 822 |
824 ;;;###autoload | 823 ;;;###autoload |