From: yamaoka <yamaoka>
Date: Sun, 24 Feb 2002 23:57:44 +0000 (+0000)
Subject: * gnus-art.el (gnus-request-article-this-buffer): Temporally fix: erase the
X-Git-Tag: t-gnus-6_15_6-01-quimby~35
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4f3ef96954ccbf14082cb639980130aead017046;p=elisp%2Fgnus.git-

* gnus-art.el (gnus-request-article-this-buffer): Temporally fix: erase the
 buffer before inserting (and saving) an article.
---

diff --git a/ChangeLog b/ChangeLog
index 2d0afeb..aa4b2bf 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-22  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* lisp/gnus-art.el (gnus-request-article-this-buffer): Temporally
+	fix: erase the buffer before inserting (and saving) an article.
+
 2002-02-22  Steve Youngs  <youngs@xemacs.org>
 
 	* aclocal.m4 (AC_PATH_LISPDIR): Default to
diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6a501a7..d213158 100644
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5436,6 +5436,10 @@ T-gnus change: Insert an article into `gnus-original-article-buffer'."
       ;; Copy the requested article from `gnus-original-article-buffer'.
       (unless (equal (buffer-name (current-buffer))
 		     (buffer-name (get-buffer gnus-original-article-buffer)))
+	;; There may be the same article if the current buffer is
+	;; `nntp-server-buffer' (e.g. a case that the command
+	;; `gnus-cache-enter-article' is invoked), it should be erased.
+	(erase-buffer)
 	(insert-buffer gnus-original-article-buffer))
 
       ;; Decode charsets.