From: ueno <ueno>
Date: Thu, 28 Nov 2002 07:31:17 +0000 (+0000)
Subject: * lisp/gnus-agent.el (gnus-agent-fetch-group-1): Article numbers
X-Git-Tag: t-gnus-6_15_10-00-quimby~58
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e1d4b652a983b675ebb6f6c6337b25db50b997fc;p=elisp%2Fgnus.git-

* 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
--- 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
--- 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.