X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-agent.el;h=983af55a727ba686cbc2a6213800b4f732816c00;hp=f4f3cca51ebd871fb1bcdbd27df106dd35b3de9c;hb=c1861e2f8f14a8fea0efa3ba1e0f07f33c2fe9d0;hpb=70a3e1e8d8da0a0f3e16e4fd6cee614e3a0d460f

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