From: akr <akr>
Date: Thu, 23 Apr 1998 17:00:09 +0000 (+0000)
Subject: Sync up with main trunc.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Fheads%2Funlabeled-1.11.6;p=elisp%2Fgnus.git-

Sync up with main trunc.
---

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)