From: Kevin Greiner <kevin.greiner@compsol.cc>
Date: Tue, 14 Jan 2003 06:08:59 +0000 (+0000)
Subject: 	* gnus-agent.el (gnus-agent-get-undownloaded-list): Include the
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=c1861e2f8f14a8fea0efa3ba1e0f07f33c2fe9d0;hp=70a3e1e8d8da0a0f3e16e4fd6cee614e3a0d460f

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

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 ()