From c1861e2f8f14a8fea0efa3ba1e0f07f33c2fe9d0 Mon Sep 17 00:00:00 2001 From: Kevin Greiner Date: Tue, 14 Jan 2003 06:08:59 +0000 Subject: [PATCH 1/1] * gnus-agent.el (gnus-agent-get-undownloaded-list): Include the fictious headers generated by nnagent (ie. Undownloaded Article ####) in the list of articles that have not been downloaded. --- lisp/gnus-agent.el | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index f4f3cca51..983af55a7 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -757,7 +757,11 @@ article's mark is toggled." (cond ((< a h) (pop alist)) ; ignore IDs in the alist that are not being displayed in the summary ((> a h) - (pop headers)) ; ignore headers that are not in the alist as these should be fictious (see nnagent-retrieve-headers). + ;; headers that are not in the alist should be + ;; fictious (see nnagent-retrieve-headers); they + ;; imply that this article isn't in the agent. + (gnus-agent-append-to-list tail h) + (pop headers)) ((cdar alist) (pop alist) (pop headers) @@ -767,6 +771,11 @@ article's mark is toggled." (pop alist) (pop headers) (gnus-agent-append-to-list tail a))))) + + (while headers + (let ((h (mail-header-number (car headers)))) + (pop headers) + (gnus-agent-append-to-list tail h))) (setq gnus-newsgroup-undownloaded (cdr undownloaded)))))) (defun gnus-agent-catchup () -- 2.25.1