mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-26 18:01:13 -08:00
Code Issues Projects Releases Wiki Activity

* message.el: Revert last change.

Browse source
This commit is contained in:
Chong Yidong 2009-12-01 19:01:41 +00:00
parent b08016f2fc
commit 4e14547fd4
2 changed files with 13 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -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'

30
lisp/gnus/message.el
View file

@ -918,14 +918,12 @@ auto-fill in message buffers."
: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 @@ starting with `not' and followed by regexps."
"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.