From 44f1d15adea4b8927f0ea9ed024e0fdde1d54391 Mon Sep 17 00:00:00 2001 From: tsuchiya Date: Tue, 11 Sep 2001 13:48:31 +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 b1e9a84..c7ca9b7 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 b90cd98..a0b8bb7 100644 --- 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) -- 1.7.10.4