(gnus-agent-fetch-group-1): After fetching

headers from the group, update variable `articles' to contain
only those numbers where headers exist.  (When fetching all
articles in a group, Gnus creates lots of numbers where there is
no articles.)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e1de796..08564b9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2002-10-20  Kai Gro\e,A_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * gnus-agent.el (gnus-agent-fetch-group-1): After fetching
+       headers from the group, update variable `articles' to contain
+       only those numbers where headers exist.  (When fetching all
+       articles in a group, Gnus creates lots of numbers where there is
+       no articles.)
+
 2002-10-20  Steve Youngs  <youngs@xemacs.org>
 
        * pgg-parse.el (pgg-parse-public-key-algorithm-alist): XEmacs

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index edf5ebd..4161370 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1316,6 +1316,11 @@ This can be added to `gnus-select-article-hook' or
                 (setq gnus-newsgroup-headers
                       (gnus-get-newsgroup-headers-xover articles nil nil
                                                         group))
+                ;; Some articles may not exist, so update `articles'
+                ;; from what was actually found.  -- kai
+                (setq articles
+                      (mapcar (lambda (x) (aref x 0))
+                              gnus-newsgroup-headers))
                 ;; `gnus-agent-overview-buffer' may be killed for
                 ;; timeout reason.  If so, recreate it.
                 (gnus-agent-create-buffer)))