[Emacs-diffs] emacs/lisp/gnus ChangeLog message.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/12/01 19:01:42

Modified files:
        lisp/gnus      : ChangeLog message.el 

Log message:
        * message.el: Revert last change.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.844&r2=1.845
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.177&r2=1.178

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.844
retrieving revision 1.845
diff -u -b -r1.844 -r1.845
--- ChangeLog   1 Dec 2009 16:21:04 -0000       1.844
+++ ChangeLog   1 Dec 2009 19:01:41 -0000       1.845
@@ -1,8 +1,3 @@
-2009-12-01  Chong Yidong  <address@hidden>
-
-       * message.el (message-setup-hook, message-send-hook): Make into aliases
-       for mail-*-hook.
-
 2009-11-29  Juri Linkov  <address@hidden>
 
        * gnus-sum.el (gnus-recenter): Use `recenter-top-bottom'

Index: message.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.177
retrieving revision 1.178
diff -u -b -r1.177 -r1.178
--- message.el  1 Dec 2009 16:21:05 -0000       1.177
+++ message.el  1 Dec 2009 19:01:42 -0000       1.178
@@ -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.