* message.el (message-send-hook): Doc fix.

* gnus-win.el (gnus-buffer-configuration): Display article
instead of article-copy when `reply'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 46e4a9a..2e5d370 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2003-01-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * message.el (message-send-hook): Doc fix.
+
+       * gnus-win.el (gnus-buffer-configuration): Display article
+       instead of article-copy when `reply'.
+
 2003-01-21  Jesper Harder  <harder@ifa.au.dk>
 
        * gnus.el (gnus-format): Change customize group to gnus.

diff --git a/lisp/gnus-win.el b/lisp/gnus-win.el
index 56375db..cd9ef74 100644 (file)
--- a/lisp/gnus-win.el
+++ b/lisp/gnus-win.el
@@ -123,7 +123,7 @@ used to display Gnus windows."
               (post 1.0 point)))
     (reply
      (vertical 1.0
-              (article-copy 0.5)
+              (article 0.5)
               (message 1.0 point)))
     (forward
      (vertical 1.0

diff --git a/lisp/message.el b/lisp/message.el
index f9a6e6c..9419ce7 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1178,18 +1178,23 @@ candidates:
 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."
+  "Hook run before sending messages.
+This hook is run quite early when sending."
   :group 'message-various
   :options '(ispell-message)
   :type 'hook)
 
 (defcustom message-send-mail-hook nil
-  "Hook run before sending mail messages."
+  "Hook run before sending mail messages.
+This hook is run very late -- just before the message is sent as
+mail."
   :group 'message-various
   :type 'hook)
 
 (defcustom message-send-news-hook nil
-  "Hook run before sending news messages."
+  "Hook run before sending news messages.
+This hook is run very late -- just before the message is sent as
+news."
   :group 'message-various
   :type 'hook)