* nnheader.el (nnheader-nov-skip-field): Use skip-chars-forward,

	which is faster.

	* gnus-sum.el (gnus-summary-update-info): Use gnus-sorted-union.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 965c92e..f52c67c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2002-01-30  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * nnheader.el (nnheader-nov-skip-field): Use skip-chars-forward,
+       which is faster.
+       
+       * gnus-sum.el (gnus-summary-update-info): Use gnus-sorted-union.
+       
 2002-01-30  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-wash-html-with-w3m): Add keymap

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 98f1814..9fa61b5 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -5984,7 +5984,7 @@ The prefix argument ALL means to select all articles."
        (when gnus-newsgroup-kill-headers
          (setq gnus-newsgroup-killed
                (gnus-compress-sequence
-                (nconc
+                (gnus-sorted-union
                  (gnus-list-range-intersection
                   (setq gnus-newsgroup-unselected
                         (sort gnus-newsgroup-unselected '<))

diff --git a/lisp/nnheader.el b/lisp/nnheader.el
index efa1fde..da6b3de 100644 (file)
--- a/lisp/nnheader.el
+++ b/lisp/nnheader.el
@@ -317,7 +317,7 @@ on your system, you could say something like:
        (delete-char 1)))))
 
 (defmacro nnheader-nov-skip-field ()
-  '(search-forward "\t" eol 'move))
+  '(skip-chars-forward "^\t" eol))
 
 (defmacro nnheader-nov-field ()
   '(buffer-substring (point) (if (nnheader-nov-skip-field) (1- (point)) eol)))