Mercurial > emacs
changeset 106358:8acd940e483a
* message.el: Revert last change.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Tue, 01 Dec 2009 19:01:41 +0000 |
| parents | 93e5b9138482 |
| children | fceba9857bee |
| files | lisp/gnus/ChangeLog lisp/gnus/message.el |
| diffstat | 2 files changed, 13 insertions(+), 22 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Tue Dec 01 18:06:06 2009 +0000 +++ b/lisp/gnus/ChangeLog Tue Dec 01 19:01:41 2009 +0000 @@ -1,8 +1,3 @@ -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 18:06:06 2009 +0000 +++ b/lisp/gnus/message.el Tue Dec 01 19:01:41 2009 +0000 @@ -918,14 +918,12 @@ :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) - -(defvaralias 'message-setup-hook 'mail-setup-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) (defcustom message-cancel-hook nil "Hook run when cancelling articles." @@ -1567,15 +1565,13 @@ "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) - -(defvaralias 'message-send-hook 'mail-send-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) (defcustom message-send-mail-hook nil "Hook run before sending mail messages.