(gnus-group-suspend): Reset gnus-backlog-articles.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6ebdc20..a1e4ea3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-10  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-group.el (gnus-group-suspend): Reset gnus-backlog-articles.
+
 2003-10-08  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * dns.el (query-dns): Don't error out on malformed resolv files.

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index fdb8fcd..9af6cf8 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -3892,6 +3892,8 @@ If GROUP, edit that local kill file instead."
   (interactive)
   (gnus-save-newsrc-file))
 
+(eval-when-compile (defvar gnus-backlog-articles))
+
 (defun gnus-group-suspend ()
   "Suspend the current Gnus session.
 In fact, cleanup buffers except for group mode buffer.
@@ -3909,6 +3911,7 @@ The hook `gnus-suspend-gnus-hook' is called before actually suspending."
                              (eq major-mode 'message-mode))))
                (gnus-kill-buffer buf)))
            (gnus-buffers))
+    (setq gnus-backlog-articles nil)
     (gnus-kill-gnus-frames)
     (when group-buf
       (bury-buffer group-buf)