For citing any message.

diff --git a/lisp/message.el b/lisp/message.el
index 1b4e2ca..e252079 100644 (file)
--- 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)