Mercurial > emacs
changeset 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 | 3b90f039f42b |
| children | de269b2f72b3 |
| files | lisp/ChangeLog lisp/gnus/ChangeLog lisp/gnus/message.el lisp/mail/sendmail.el |
| diffstat | 4 files changed, 28 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Dec 01 09:28:22 2009 +0000 +++ b/lisp/ChangeLog Tue Dec 01 16:20:59 2009 +0000 @@ -1,3 +1,7 @@ +2009-12-01 Chong Yidong <cyd@stupidchicken.com> + + * mail/sendmail.el (mail-setup-hook, mail-send-hook): Doc fixes. + 2009-12-01 Glenn Morris <rgm@gnu.org> * Makefile.in (ELCFILES): Add mpc.elc.
--- a/lisp/gnus/ChangeLog Tue Dec 01 09:28:22 2009 +0000 +++ b/lisp/gnus/ChangeLog Tue Dec 01 16:20:59 2009 +0000 @@ -1,3 +1,8 @@ +2009-12-01 Chong Yidong <cyd@stupidchicken.com> + + * message.el (message-setup-hook, message-send-hook): Make into aliases + for mail-*-hook. + 2009-11-29 Juri Linkov <juri@jurta.org> * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'
--- a/lisp/gnus/message.el Tue Dec 01 09:28:22 2009 +0000 +++ b/lisp/gnus/message.el Tue Dec 01 16:20:59 2009 +0000 @@ -918,12 +918,14 @@ :type '(choice (const :tag "Don't turn on auto fill" nil) (integer))) -(defcustom message-setup-hook nil - "Normal hook, run each time a new outgoing message is initialized. -The function `message-setup' runs this hook." - :group 'message-various - :link '(custom-manual "(message)Various Message Variables") - :type 'hook) +;; (defcustom message-setup-hook nil +;; "Normal hook, run each time a new outgoing message is initialized. +;; The function `message-setup' runs this hook." +;; :group 'message-various +;; :link '(custom-manual "(message)Various Message Variables") +;; :type 'hook) + +(defvaralias 'message-setup-hook 'mail-setup-hook) (defcustom message-cancel-hook nil "Hook run when cancelling articles." @@ -1565,13 +1567,15 @@ "Alist of mail and news faces for facemenu. The cdr of each entry is a function for applying the face to a region.") -(defcustom message-send-hook nil - "Hook run before sending messages. -This hook is run quite early when sending." - :group 'message-various - :options '(ispell-message) - :link '(custom-manual "(message)Various Message Variables") - :type 'hook) +;; (defcustom message-send-hook nil +;; "Hook run before sending messages. +;; This hook is run quite early when sending." +;; :group 'message-various +;; :options '(ispell-message) +;; :link '(custom-manual "(message)Various Message Variables") +;; :type 'hook) + +(defvaralias 'message-send-hook 'mail-send-hook) (defcustom message-send-mail-hook nil "Hook run before sending mail messages.
--- a/lisp/mail/sendmail.el Tue Dec 01 09:28:22 2009 +0000 +++ b/lisp/mail/sendmail.el Tue Dec 01 16:20:59 2009 +0000 @@ -221,8 +221,7 @@ ;;;###autoload (defcustom mail-setup-hook nil - "Normal hook, run each time a new outgoing mail message is initialized. -The function `mail-setup' runs this hook." + "Normal hook, run each time a new outgoing message is initialized." :type 'hook :options '(fortune-to-signature spook mail-abbrevs-setup) :group 'sendmail) @@ -816,7 +815,7 @@ (switch-to-buffer newbuf)))))) (defcustom mail-send-hook nil - "Hook run just before sending mail with `mail-send'." + "Hook run just before sending a message." :type 'hook :options '(flyspell-mode-off) :group 'sendmail)