From: yamaoka <yamaoka>
Date: Mon, 21 Oct 2002 22:14:42 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-05-quimby~18
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c9238fdffee7f423e3f6d0035a6d74a0d02fda67;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 114159f..b7bdb46 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-21  Kai Gro,A_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+	* gnus-agent.el (gnus-agent-fetch-headers): Remove articles that
+	are known to be downloaded already.
+
 2002-10-21  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* mm-view.el (mm-text-html-renderer-alist): Add w3m-standalone. 
diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 19ee85b..9d2a897 100644
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1133,6 +1133,13 @@ This can be added to `gnus-select-article-hook' or
     (setq articles (sort (gnus-uncompress-sequence articles) '<))
     ;; Remove known articles.
     (when (gnus-agent-load-alist group)
+      ;; Remove articles marked as downloaded.
+      (setq articles
+	    (gnus-sorted-difference
+	     articles
+	     (delq nil
+		   (mapcar (lambda (x) (when (cdr x) (car x)))
+			   gnus-agent-article-alist))))
       (let ((low (1+ (caar (last gnus-agent-article-alist))))
 	    (high (cdr (gnus-active group))))
 	;; I suspect a deeper problem here and I suspect that low