From: keiichi <keiichi>
Date: Fri, 13 Nov 1998 06:31:00 +0000 (+0000)
Subject: (gnus-setup-message): Setup `message-startup-parameter-alist' for starting
X-Git-Tag: gnus-6_8-199811302358~33
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d8fe5f1a49cfa829c78da140ed1bb014ebdbdd65;p=elisp%2Fgnus.git-

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

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 9af23d9..bd88160 100644
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -202,7 +202,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)