From 7f88995b98950aecb2a25e041fbbf6ecd3351b93 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 23 Apr 1998 17:00:09 +0000 Subject: [PATCH] Sync up with main trunc. --- lisp/gnus-msg.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 04b3cf6..95aa5f7 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -158,10 +158,12 @@ Thank you for your help in stamping out bugs. (defmacro gnus-setup-message (config &rest forms) (let ((winconf (make-symbol "gnus-setup-message-winconf")) (buffer (make-symbol "gnus-setup-message-buffer")) - (article (make-symbol "gnus-setup-message-article"))) + (article (make-symbol "gnus-setup-message-article")) + (group (make-symbol "gnus-setup-message-group"))) `(let ((,winconf (current-window-configuration)) (,buffer (buffer-name (current-buffer))) (,article (and gnus-article-reply (gnus-summary-article-number))) + (,group gnus-newsgroup-name) (message-header-setup-hook (copy-sequence message-header-setup-hook))) (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc) @@ -172,7 +174,7 @@ Thank you for your help in stamping out bugs. (gnus-inews-add-send-actions ,winconf ,buffer ,article) (setq gnus-message-buffer (current-buffer)) (set (make-local-variable 'gnus-message-group-art) - (cons ,gnus-newsgroup-name ,article)) + (cons ,group ,article)) (make-local-variable 'gnus-newsgroup-name) (gnus-run-hooks 'gnus-message-setup-hook)) (gnus-configure-windows ,config t) -- 1.7.10.4