X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fnnagent.el;h=21b9f97f0a1af60f58c4ecf05a95b32bcefc53e6;hb=e468142f8db1db97bce1bc87e28072f91cf5c652;hp=a65bbfdb9da832163239cf21f255f0a01a559e87;hpb=bf18aaa62e88b55a6ac581b658da8264cd8d1a6f;p=gnus

diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index a65bbfdb9..21b9f97f0 100644
--- a/lisp/nnagent.el
+++ b/lisp/nnagent.el
@@ -130,11 +130,17 @@
 
 (deffoo nnagent-retrieve-headers (articles &optional group server fetch-old)
   (let ((file (gnus-agent-article-name ".overview" group))
-	arts n)
+	arts n first)
     (save-excursion
       (gnus-agent-load-alist group)
-      (setq arts (gnus-sorted-difference 
+      (setq arts (gnus-sorted-difference
 		  articles (mapcar 'car gnus-agent-article-alist)))
+      ;; Assume that articles with smaller numbers than the first one
+      ;; Agent knows are gone.
+      (setq first (caar gnus-agent-article-alist))
+      (when first 
+	(while (and arts (< (car arts) first))
+	  (pop arts)))
       (set-buffer nntp-server-buffer)
       (erase-buffer)
       (nnheader-insert-nov-file file (car articles))
@@ -145,7 +151,7 @@
 	  (when (> n (car arts))
 	    (beginning-of-line))
 	  (while (and arts (> n (car arts)))
-	    (insert (format 
+	    (insert (format
 		     "%d\t[Undownloaded article %d]\tGnus Agent\t\t\t\n"
 		     (car arts) (car arts)))
 	    (pop arts))