(gnus-agent-fetch-headers): Remove old cruft that tried to

abstain from downloading articles more than once if
gnus-agent-consider-all-articles was true.  This is now done
properly via the .fetched files.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b4eb002..cdd42c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,10 @@
 
        * gnus-agent.el (gnus-agent-save-fetched-headers): Create
        directory if it doesn't exist.
+       (gnus-agent-fetch-headers): Remove old cruft that tried to
+       abstain from downloading articles more than once if
+       gnus-agent-consider-all-articles was true.  This is now done
+       properly via the .fetched files.
 
 2002-10-25  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el
index 8d9d224..5ab2251 100644 (file)
--- a/lisp/gnus-agent.el
+++ b/lisp/gnus-agent.el
@@ -1127,13 +1127,6 @@ This can be added to `gnus-select-article-hook' or
       (setq articles new-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