* gnus-agent.el (gnus-agent-retrieve-headers): Erase

	nntp-server-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bf04253..19a599d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-01-12  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-agent.el (gnus-agent-retrieve-headers): Erase
+       nntp-server-buffer.
+
 2002-01-12  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * mm-view.el (mm-display-inline-fontify): Require font-lock to

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 1b476b6..9e1ebdd 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1815,14 +1815,16 @@ The following commands are available:
          (setq cached-articles (sort cached-articles '<))))
       (when (setq uncached-articles 
                  (gnus-set-difference articles cached-articles))
+       (set-buffer nntp-server-buffer)
+       (erase-buffer)
        (let (gnus-agent-cache)
          (unless (eq 'nov 
                      (gnus-retrieve-headers 
                       uncached-articles group fetch-old))
            (nnvirtual-convert-headers)))
+       (set-buffer gnus-agent-overview-buffer)
+       (erase-buffer)
        (set-buffer nntp-server-buffer)
-       (with-current-buffer gnus-agent-overview-buffer
-         (erase-buffer))
        (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max))
        (when (and uncached-articles (file-exists-p file))
          (gnus-agent-braid-nov group uncached-articles file))