From: tsuchiya <tsuchiya>
Date: Tue, 11 Sep 2001 13:58:28 +0000 (+0000)
Subject: * lisp/gnus-art.el (gnus-request-article-this-buffer): Make a copy
X-Git-Tag: t-gnus-6_15_3-06~9
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=cf7e36fb684de1f04607c7bbfcd0ff5a3bda5e0c;p=elisp%2Fgnus.git-

* 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 58981f7..8ce88e7 100644
--- 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 8869992..5407d75 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4882,7 +4882,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)