[Emacs-diffs] emacs/lisp ChangeLog gnus/ChangeLog gnus/messag...

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/12/01 16:21:05

Modified files:
        lisp           : ChangeLog 
        lisp/gnus      : ChangeLog message.el 
        lisp/mail      : sendmail.el 

Log message:
        * 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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16783&r2=1.16784
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.843&r2=1.844
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.176&r2=1.177
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/sendmail.el?cvsroot=emacs&r1=1.336&r2=1.337

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16783
retrieving revision 1.16784
diff -u -b -r1.16783 -r1.16784
--- ChangeLog   1 Dec 2009 07:51:02 -0000       1.16783
+++ ChangeLog   1 Dec 2009 16:20:59 -0000       1.16784
@@ -1,3 +1,7 @@
+2009-12-01  Chong Yidong  <address@hidden>
+
+       * mail/sendmail.el (mail-setup-hook, mail-send-hook): Doc fixes.
+
 2009-12-01  Glenn Morris  <address@hidden>
 
        * Makefile.in (ELCFILES): Add mpc.elc.

Index: gnus/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.843
retrieving revision 1.844
diff -u -b -r1.843 -r1.844
--- gnus/ChangeLog      30 Nov 2009 22:11:19 -0000      1.843
+++ gnus/ChangeLog      1 Dec 2009 16:21:04 -0000       1.844
@@ -1,3 +1,8 @@
+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: gnus/message.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.176
retrieving revision 1.177
diff -u -b -r1.176 -r1.177
--- gnus/message.el     24 Nov 2009 09:19:09 -0000      1.176
+++ gnus/message.el     1 Dec 2009 16:21:05 -0000       1.177
@@ -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.

Index: mail/sendmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/sendmail.el,v
retrieving revision 1.336
retrieving revision 1.337
diff -u -b -r1.336 -r1.337
--- mail/sendmail.el    19 Nov 2009 16:48:33 -0000      1.336
+++ mail/sendmail.el    1 Dec 2009 16:21:05 -0000       1.337
@@ -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)