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