From: yamaoka <yamaoka>
Date: Tue, 26 Feb 2002 05:27:11 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_6-01-quimby~30
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0f4c54af17dc45666e822daef2183091bc65829f;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7f1354..14d5015 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-26  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+	* nnagent.el (nnagent-retrieve-headers): Remove articles with
+	small numbers.
+
 2002-02-24  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* deuglify.el: Fix comments.
diff --git a/lisp/nnagent.el b/lisp/nnagent.el
index c97a784..21b9f97 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
 		  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))