* lisp/gnus-agent.el (gnus-agent-fetch-group-1): Article numbers

should be accessed through `mail-header-number'.

diff --git a/ChangeLog b/ChangeLog
index 55d5d59..fc017c1 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-28  Daiki Ueno  <ueno@unixuser.org>
+
+       * lisp/gnus-agent.el (gnus-agent-fetch-group-1): Article numbers
+       should be accessed through `mail-header-number'.
+
 2002-11-24  ARISAWA Akihiro  <ari@mbf.sphere.ne.jp>
 
        * lisp/mm-url.el (mm-url-program): Use `exec-installed-p' instead of

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index fadd484..349688f 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1470,7 +1470,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.