From: keiichi <keiichi>
Date: Mon, 10 Aug 1998 05:34:52 +0000 (+0000)
Subject: For citing any message.
X-Git-Tag: gnus-6_8_8~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=98b34efb864ee7c24454c1d300a6046fc1fc644b;p=elisp%2Fgnus.git-

For citing any message.
---

diff --git a/lisp/message.el b/lisp/message.el
index 1b4e2ca..e252079 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1721,6 +1721,8 @@ prefix, and don't delete any headers."
   (let ((modified (buffer-modified-p)))
     (when (and message-reply-buffer
 	       message-cite-function)
+      (gnus-copy-article-buffer)
+      (setq message-reply-buffer gnus-article-copy)
       (delete-windows-on message-reply-buffer t)
       (insert-buffer message-reply-buffer)
       (funcall message-cite-function)