From f491303841c8cf47a9cf9bb69106d7a83fb89ea2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 30 Nov 2001 03:19:18 +0000 Subject: [PATCH] Synch with Oort Gnus. --- lisp/ChangeLog | 7 +++++++ lisp/gnus-agent.el | 6 +++--- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 94efb5e..e1649cf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-11-30 Simon Josefsson + + * gnus-agent.el (gnus-agent-fetch-headers): Use gnus-range-add + instead of gnus-union, for speed. Suggested by Christoph Conrad + . + (gnus-agent-fetch-group-1): Add verbose message. + 2001-11-29 12:00:00 ShengHuo ZHU * gnus-agent.el (gnus-agent-write-active): Make sure sym is a cons diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 2d4cd5c..33f14c9 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -1022,9 +1022,8 @@ the actual number of articles toggled is returned." (setq articles (nthcdr i articles)))) ;; add article with marks to list of article headers we want to fetch. (dolist (arts (gnus-info-marks (gnus-get-info group))) - (setq articles (gnus-union (gnus-uncompress-sequence (cdr arts)) - articles))) - (setq articles (sort articles '<)) + (setq articles (gnus-range-add articles (cdr arts)))) + (setq articles (sort (gnus-uncompress-sequence articles) '<)) ;; Remove known articles. (when (gnus-agent-load-alist group) (setq articles (gnus-sorted-intersection @@ -1242,6 +1241,7 @@ the actual number of articles toggled is returned." (setq arts (assq 'download (gnus-info-marks (setq info (gnus-get-info group))))) (when (cdr arts) + (gnus-message 8 "Agent is downloading marked articles...") (gnus-agent-fetch-articles group (gnus-uncompress-range (cdr arts))) (setq marks (delq arts (gnus-info-marks info))) -- 1.7.10.4