From: yamaoka <yamaoka>
Date: Fri, 30 Nov 2001 03:19:18 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_4-09-quimby-last-~46
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f491303841c8cf47a9cf9bb69106d7a83fb89ea2;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

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  <jas@extundo.com>
+
+	* gnus-agent.el (gnus-agent-fetch-headers): Use gnus-range-add
+	instead of gnus-union, for speed.  Suggested by Christoph Conrad
+	<christoph.conrad@gmx.de>.
+	(gnus-agent-fetch-group-1): Add verbose message.
+
 2001-11-29 12:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* 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)))