* 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 7a3f55d..79453d7 100644 (file)
--- 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-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * lisp/nnheader.el (std11-field-value): Fix regexp.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index b05f35a..272d68e 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -5339,6 +5339,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.