From: yamaoka <yamaoka>
Date: Tue, 11 Jun 2002 23:56:09 +0000 (+0000)
Subject: * gnus-vers.el (gnus-revision-number): Increment to 02.
X-Git-Tag: t-gnus-6_15_6-02
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f630f9ceec16a2a140bf931fcd3858359558dfb3;p=elisp%2Fgnus.git-

* gnus-vers.el (gnus-revision-number): Increment to 02.

* gnus-msg.el (gnus-message-setup-hook): Default to nil.
(gnus-setup-message): Run `gnus-maybe-setup-default-charset'.
(gnus-summary-supersede-article): Don't bind the value for
 `gnus-message-setup-hook'.
(gnus-summary-resend-bounced-mail): Ditto.
---

diff --git a/ChangeLog b/ChangeLog
index 40c1233..b60aee6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2002-06-11  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-vers.el (gnus-revision-number): Increment to 02.
+
+	* lisp/gnus-msg.el (gnus-message-setup-hook): Default to nil.
+	(gnus-setup-message): Run `gnus-maybe-setup-default-charset'.
+	(gnus-summary-supersede-article): Don't bind the value for
+	`gnus-message-setup-hook'.
+	(gnus-summary-resend-bounced-mail): Ditto.
+
 2002-06-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* lisp/pop3.el: Add a comment for the use of `ssl' or `tls'
diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 60752ad..bcfedf6 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -106,7 +106,7 @@ the second with the current group name."
   :group 'gnus-message
   :type 'string)
 
-(defcustom gnus-message-setup-hook '(gnus-maybe-setup-default-charset)
+(defcustom gnus-message-setup-hook nil
   "Hook run after setting up a message buffer."
   :group 'gnus-message
   :type 'hook)
@@ -374,6 +374,7 @@ Thank you for your help in stamping out bugs.
 	 (set (make-local-variable 'gnus-message-group-art)
 	      (cons ,group ,article))
 	 (set (make-local-variable 'gnus-newsgroup-name) ,group)
+	 (gnus-maybe-setup-default-charset)
 	 (gnus-run-hooks 'gnus-message-setup-hook))
        (gnus-add-buffer)
        (gnus-configure-windows ,config t)
@@ -752,8 +753,7 @@ post using the current select method."
 This is done simply by taking the old article and adding a Supersedes
 header line with the old Message-ID."
   (interactive)
-  (let ((article (gnus-summary-article-number))
-	(gnus-message-setup-hook '(gnus-maybe-setup-default-charset)))
+  (let ((article (gnus-summary-article-number)))
     (gnus-setup-message 'reply-yank
       (gnus-summary-select-article t)
       (set-buffer gnus-original-article-buffer)
@@ -1640,15 +1640,14 @@ this is a reply."
   (interactive "P")
   (gnus-summary-select-article t)
   (set-buffer gnus-original-article-buffer)
-  (let ((gnus-message-setup-hook '(gnus-maybe-setup-default-charset)))
-    (gnus-setup-message 'compose-bounce
-      (let* ((references (mail-fetch-field "references"))
-	     (parent (and references (gnus-parent-id references))))
-	(message-bounce)
-	;; If there are references, we fetch the article we answered to.
-	(and fetch parent
-	     (gnus-summary-refer-article parent)
-	     (gnus-summary-show-all-headers))))))
+  (gnus-setup-message 'compose-bounce
+    (let* ((references (mail-fetch-field "references"))
+	   (parent (and references (gnus-parent-id references))))
+      (message-bounce)
+      ;; If there are references, we fetch the article we answered to.
+      (and fetch parent
+	   (gnus-summary-refer-article parent)
+	   (gnus-summary-show-all-headers)))))
 
 ;;; Gcc handling.
 
diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el
index 5e58abf..d6bdf4a 100644
--- a/lisp/gnus-vers.el
+++ b/lisp/gnus-vers.el
@@ -34,7 +34,7 @@
 (require 'product)
 (provide 'gnus-vers)
 
-(defconst gnus-revision-number "01"
+(defconst gnus-revision-number "02"
   "Revision number for this version of gnus.")
 
 ;; Product information of this gnus.