From c9238fdffee7f423e3f6d0035a6d74a0d02fda67 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 21 Oct 2002 22:14:42 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/gnus-agent.el | 7 +++++++ 2 files changed, 12 insertions(+) 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 + + * gnus-agent.el (gnus-agent-fetch-headers): Remove articles that + are known to be downloaded already. + 2002-10-21 Lars Magne Ingebrigtsen * 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 -- 1.7.10.4