From f630f9ceec16a2a140bf931fcd3858359558dfb3 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 11 Jun 2002 23:56:09 +0000 Subject: [PATCH] * 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. --- ChangeLog | 10 ++++++++++ lisp/gnus-msg.el | 23 +++++++++++------------ lisp/gnus-vers.el | 2 +- 3 files changed, 22 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index 40c1233..b60aee6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,13 @@ +2002-06-11 Katsumi Yamaoka + + * 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 * 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. -- 1.7.10.4