* lisp/gnus-art.el (gnus-request-article-this-buffer): Make a copy

of the requested article only when the current directory does noe
equal to `gnus-original-article-buffer'.

diff --git a/ChangeLog b/ChangeLog
index b1e9a84..c7ca9b7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2001-09-11  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>
 
+       * lisp/gnus-art.el (gnus-request-article-this-buffer): Make a copy
+       of the requested article only when the current directory does noe
+       equal to `gnus-original-article-buffer'.
+
        * lisp/gnus-art.el (gnus-request-article-this-buffer): Copy an
        article from `gnus-original-article-buffer' to
        `gnus-article-buffer'.  Generate `gnus-original-article-buffer'

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b90cd98..a0b8bb7 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4929,7 +4929,9 @@ T-gnus change: Insert an article into `gnus-original-article-buffer'."
       (setq gnus-article-current-summary gnus-summary-buffer)
 
       ;; Copy the requested article from `gnus-original-article-buffer'.
-      (insert-buffer gnus-original-article-buffer)
+      (unless (equal (buffer-name (current-buffer))
+                    (buffer-name (get-buffer gnus-original-article-buffer)))
+       (insert-buffer gnus-original-article-buffer))
 
       ;; Decode charsets.
       (run-hooks 'gnus-article-decode-hook)