From e1d4b652a983b675ebb6f6c6337b25db50b997fc Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 28 Nov 2002 07:31:17 +0000 Subject: [PATCH] * lisp/gnus-agent.el (gnus-agent-fetch-group-1): Article numbers should be accessed through `mail-header-number'. --- ChangeLog | 5 +++++ lisp/gnus-agent.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 55d5d59..fc017c1 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +2002-11-28 Daiki Ueno + + * lisp/gnus-agent.el (gnus-agent-fetch-group-1): Article numbers + should be accessed through `mail-header-number'. + 2002-11-24 ARISAWA Akihiro * 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. -- 1.7.10.4