From: keiichi <keiichi>
Date: Tue, 6 Oct 1998 08:15:45 +0000 (+0000)
Subject: (gnus-setup-message): Setup `message-startup-parameter-alist'.
X-Git-Tag: nana-gnus-6_8-199811302358~14
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=dcaace305e38ba3bb1e6a5b9f8dde65d4e0dc843;p=elisp%2Fgnus.git-

(gnus-setup-message): Setup `message-startup-parameter-alist'.
---

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 29943ae..0feffe5 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -191,7 +191,11 @@ Thank you for your help in stamping out bugs.
 	   (,group gnus-newsgroup-name)
 	   (message-header-setup-hook
 	    (copy-sequence message-header-setup-hook))
-	   (message-mode-hook (copy-sequence message-mode-hook)))
+	   (message-mode-hook (copy-sequence message-mode-hook))
+	   (message-startup-parameter-alist
+	    '((reply-buffer . gnus-copy-article-buffer)
+	      (original-buffer . gnus-original-article-buffer)
+	      (user-agent . Gnus))))
        (add-hook 'message-header-setup-hook 'gnus-inews-insert-gcc)
        (add-hook 'message-header-setup-hook 'gnus-inews-insert-archive-gcc)
        (add-hook 'message-mode-hook 'gnus-configure-posting-styles)