(gnus-agent-retrieve-headers): Erase buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03085a9..80ead2e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        (gnus-agent-regenerate): New function.
        (gnus-agent-save-alist): Sort.
        (gnus-agent-copy-nov-line): Test eobp.
+       (gnus-agent-retrieve-headers): Erase buffer.
 
 2002-01-10  ShengHuo ZHU  <zsh@cs.rochester.edu>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 0f6f67c..65d25d1 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1793,6 +1793,7 @@ The following commands are available:
                          (file-name-directory file) t))
       (when (file-exists-p file)
        (with-current-buffer gnus-agent-overview-buffer
+         (erase-buffer)
          (let ((coding-system-for-read
                 gnus-agent-file-coding-system))
            (nnheader-insert-file-contents file))