* lisp/gnus-art.el (gnus-request-article-this-buffer): Copy an

article from `gnus-original-article-buffer' to
`gnus-article-buffer'.

diff --git a/ChangeLog b/ChangeLog
index ba63ea3..6fc226d 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-11  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
+
+       * lisp/gnus-art.el (gnus-request-article-this-buffer): Copy an
+       article from `gnus-original-article-buffer' to
+       `gnus-article-buffer'.
+
 2001-09-10  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
        * lisp/gnus-namazu.el: Updated documents.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index f1dd476..397fca1 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4920,6 +4920,11 @@ T-gnus change: Insert an article into `gnus-original-article-buffer'."
       ;; Associate this article with the current summary buffer.
       (setq gnus-article-current-summary gnus-summary-buffer)
 
+      ;; T-gnus change: Copy the requested article from
+      ;; `gnus-original-article-buffer' to the current buffer when
+      ;; this function is called.
+      (insert-buffer gnus-original-article-buffer)
+
       ;; Decode charsets.
       (run-hooks 'gnus-article-decode-hook)
       ;; Mark article as decoded or not.