From 0f4c54af17dc45666e822daef2183091bc65829f Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 26 Feb 2002 05:27:11 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 5 +++++ lisp/nnagent.el | 8 +++++++- 2 files changed, 12 insertions(+), 1 deletion(-) 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 + + * nnagent.el (nnagent-retrieve-headers): Remove articles with + small numbers. + 2002-02-24 ShengHuo ZHU * 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)) -- 1.7.10.4