faster expiry of sparse total-expire nnml groups

faster expiry of sparse total-expire nnml groups

[Ken Raeburn]

With NFS caching it's hard to judge exactly, but this patch appears to
have improved the expire time on one of my total-expire groups (2610
articles, with an article number range almost ten times that) by maybe
as much as 12x.

If total-expire isn't set, it'll probably slow things down a little.

It may be possible to speed up other parts of
nnml-request-expire-articles slightly by relying on active-articles
being sorted.

Ken


1998-03-31  Ken Raeburn  <raeburn@cygnus.com>

	* nnml.el (nnml-request-expire-articles): Sort active-articles,
	then only expire the intersection of that set with the requested
	articles.

Index: nnml.el
===================================================================
RCS file: /0h/users/raeburn/.cvsfiles/lib/elisp/gnus/lisp/nnml.el,v
retrieving revision 1.4
diff -p -u -r1.4 nnml.el
--- nnml.el	1998/03/08 04:55:58	1.4
+++ nnml.el	1998/04/01 01:14:33
@@ -271,6 +271,11 @@ all.  This may very well take some time.
 	article rest mod-time number)
     (nnmail-activate 'nnml)
 
+    (setq active-articles (sort active-articles '<))
+    ;; Articles not listed in active-articles are already gone,
+    ;; so don't try to expire them.
+    (setq articles (gnus-sorted-intersection articles active-articles))
+
     (while (and articles is-old)
       (when (setq article (nnml-article-to-file (setq number (pop articles))))
 	(when (setq mod-time (nth 5 (file-attributes article)))