(gnus-agent-fetch-group-1): Article numbers should be accessed through

 `mail-header-number'.  From Daiki Ueno.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e15886a..b2f85b8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2002-11-28  Daiki Ueno  <ueno@unixuser.org>
+
+       * gnus-agent.el (gnus-agent-fetch-group-1): Article numbers should
+       be accessed through `mail-header-number'.
+
 2002-11-27  Kevin Greiner  <kgreiner@xpediantsolutions.com>
 
        * gnus-sum.el (gnus-summary-insert-old-articles): No longer passes
        compressed range to gnus-summary-insert-articles.
 
 2002-11-26  Kevin Ryde <user42@zip.com.au>
-       
+
        * gnus-art.el (gnus-mime-copy-part): Look for filename
        parameter under content-disposition, not content-type.
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 5558af0..31af6b1 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1448,7 +1448,7 @@ of FILE placing the combined headers in nntp-server-buffer."
                 ;; Some articles may not exist, so update `articles'
                 ;; from what was actually found.  -- kai
                 (setq articles
-                      (mapcar (lambda (x) (aref x 0))
+                      (mapcar (lambda (x) (mail-header-number x))
                               gnus-newsgroup-headers))
                 ;; `gnus-agent-overview-buffer' may be killed for
                 ;; timeout reason.  If so, recreate it.