From cf7e36fb684de1f04607c7bbfcd0ff5a3bda5e0c Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Tue, 11 Sep 2001 13:58:28 +0000 Subject: [PATCH] * 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'. --- ChangeLog | 4 ++++ lisp/gnus-art.el | 4 +++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 58981f7..8ce88e7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,9 @@ 2001-09-11 TSUCHIYA Masatoshi + * 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) -- 1.7.10.4