Index: gnus/lisp/ChangeLog
diff -u gnus/lisp/ChangeLog:6.410 gnus/lisp/ChangeLog:6.406
--- gnus/lisp/ChangeLog:6.410	Sat Apr 14 01:16:35 2001
+++ gnus/lisp/ChangeLog	Fri Apr 13 17:57:46 2001
@@ -1,27 +1,3 @@
-2001-04-14 01:14:42 Lars Magne Ingebrigtsen <lars@ingebrigtsen.no>
-
-	*gnus.el: Oort Gnus v0.02 is released.
-
-2001-04-14 00:48:42  Lars Magne Ingebrigtsen  <larsi@quimby.gnus.org>
-
-	* gnus.el: Oort Gnus v0.01 is released.
-
-2001-04-13 22:01:46  Lars Magne Ingebrigtsen  <larsi@gnus.org>
-
-	* gnus-sum.el (gnus-summary-highlight): Highlight read
-	undownloaded articles as read articles.
-
-	* gnus-agent.el (gnus-agent-get-undownloaded-list): Clean up.
-	(gnus-agent-get-undownloaded-list): Mark all undownloaded
-	articles, even read ones, as such.
-
-	* gnus-sum.el (gnus-summary-find-matching): Clean up.
-	(gnus-find-matching-articles): New function.
-	(gnus-summary-limit-include-matching-articles): New command. 
-	(gnus-summary-limit-include-thread): Include articles that have
-	matching subjects.
-	(gnus-offer-save-summaries): Clean up.
-
 2001-04-13  Kai Gro,A_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
 	* nnmail.el (nnmail-split-fancy-with-parent): Add docstring.
Index: gnus/lisp/gnus-agent.el
diff -u gnus/lisp/gnus-agent.el:6.11 gnus/lisp/gnus-agent.el:6.10
--- gnus/lisp/gnus-agent.el:6.11	Sat Apr 14 00:51:30 2001
+++ gnus/lisp/gnus-agent.el	Fri Feb  2 23:45:43 2001
@@ -641,18 +641,23 @@
 	       (gnus-agent-method-p gnus-command-method))
       (gnus-agent-load-alist gnus-newsgroup-name)
       ;; First mark all undownloaded articles as undownloaded.
-      (dolist (article (mapcar (lambda (header) (mail-header-number header))
-			       gnus-newsgroup-headers))
-	(unless (or (cdr (assq article gnus-agent-article-alist))
-		    (memq article gnus-newsgroup-downloadable)
-		    (memq article gnus-newsgroup-cached))
-	  (push article gnus-newsgroup-undownloaded)))
+      (let ((articles (append gnus-newsgroup-unreads
+			      gnus-newsgroup-marked
+			      gnus-newsgroup-dormant))
+	    article)
+	(while (setq article (pop articles))
+	  (unless (or (cdr (assq article gnus-agent-article-alist))
+		      (memq article gnus-newsgroup-downloadable)
+		      (memq article gnus-newsgroup-cached))
+	    (push article gnus-newsgroup-undownloaded))))
       ;; Then mark downloaded downloadable as not-downloadable,
       ;; if you get my drift.
-      (dolist (article gnus-newsgroup-downloadable)
-	(when (cdr (assq article gnus-agent-article-alist))
-	  (setq gnus-newsgroup-downloadable
-		(delq article gnus-newsgroup-downloadable)))))))
+      (let ((articles gnus-newsgroup-downloadable)
+	    article)
+	(while (setq article (pop articles))
+	  (when (cdr (assq article gnus-agent-article-alist))
+	    (setq gnus-newsgroup-downloadable
+		  (delq article gnus-newsgroup-downloadable))))))))
 
 (defun gnus-agent-catchup ()
   "Mark all undownloaded articles as read."
Index: gnus/lisp/gnus-sum.el
diff -u gnus/lisp/gnus-sum.el:6.66 gnus/lisp/gnus-sum.el:6.65
--- gnus/lisp/gnus-sum.el:6.66	Sat Apr 14 00:51:30 2001
+++ gnus/lisp/gnus-sum.el	Fri Apr 13 01:54:37 2001
@@ -820,11 +820,8 @@
     ((and (< score default) (memq mark (list gnus-downloadable-mark
 					     gnus-undownloaded-mark)))
      . gnus-summary-low-unread-face)
-    ((and (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
-	  (memq article gnus-newsgroup-unreads))
-     . gnus-summary-normal-unread-face)
     ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))
-     . gnus-summary-normal-read-face)
+     . gnus-summary-normal-unread-face)
     ((> score default)
      . gnus-summary-high-read-face)
     ((< score default)
@@ -4363,7 +4360,7 @@
 				 (not (eq gnus-fetch-old-headers 'some))
 				 (not (numberp gnus-fetch-old-headers)))
 				(> (length articles) 1))
-			    gnus-fetch-old-headers))))
+			  gnus-fetch-old-headers))))
 	    (gnus-get-newsgroup-headers-xover
 	     articles nil nil gnus-newsgroup-name t)
 	  (gnus-get-newsgroup-headers))
@@ -6717,27 +6714,12 @@
       (gnus-summary-position-point))))
 
 (defun gnus-summary-limit-include-thread (id)
-  "Display all the hidden articles that is in the thread with ID in it.
-When called interactively, ID is the Message-ID of the current
-article."
+  "Display all the hidden articles that in the current thread."
   (interactive (list (mail-header-id (gnus-summary-article-header))))
   (let ((articles (gnus-articles-in-thread
 		   (gnus-id-to-thread (gnus-root-id id)))))
     (prog1
 	(gnus-summary-limit (nconc articles gnus-newsgroup-limit))
-	(gnus-summary-limit-include-matching-articles
-	 "subject"
-	 (regexp-quote (gnus-simplify-subject-re
-			(mail-header-subject (gnus-id-to-header id)))))
-      (gnus-summary-position-point))))
-
-(defun gnus-summary-limit-include-matching-articles (header regexp)
-  "Display all the hidden articles that have HEADERs that match REGEXP."
-  (interactive (list (read-string "Match on header: ")
-		     (read-string "Regexp: ")))
-  (let ((articles (gnus-find-matching-articles header regexp)))
-    (prog1
-	(gnus-summary-limit (nconc articles gnus-newsgroup-limit))
       (gnus-summary-position-point))))
 
 (defun gnus-summary-limit-include-dormant ()
@@ -7406,18 +7388,6 @@
       (gnus-summary-position-point)
       t)))
 
-(defun gnus-find-matching-articles (header regexp)
-  "Return a list of all articles that match REGEXP on HEADER.
-This search includes all articles in the current group that Gnus has
-fetched headers for, whether they are displayed or not."
-  (let ((articles nil)
-	(func `(lambda (h) (,(intern (concat "mail-header-" header)) h)))
-	(case-fold-search t))
-    (dolist (header gnus-newsgroup-headers)
-      (when (string-match regexp (funcall func header))
-	(push (mail-header-number header) articles)))
-    (nreverse articles)))
-
 (defun gnus-summary-find-matching (header regexp &optional backward unread
 					  not-case-fold)
   "Return a list of all articles that match REGEXP on HEADER.
@@ -7426,7 +7396,10 @@
 If UNREAD is non-nil, only unread articles will
 be taken into consideration.  If NOT-CASE-FOLD, case won't be folded
 in the comparisons."
-  (let ((case-fold-search (not not-case-fold))
+  (let ((data (if (eq backward 'all) gnus-newsgroup-data
+		(gnus-data-find-list
+		 (gnus-summary-article-number) (gnus-data-list backward))))
+	(case-fold-search (not not-case-fold))
 	articles d func)
     (if (consp header)
 	(if (eq (car header) 'extra)
@@ -7438,17 +7411,14 @@
       (unless (fboundp (intern (concat "mail-header-" header)))
 	(error "%s is not a valid header" header))
       (setq func `(lambda (h) (,(intern (concat "mail-header-" header)) h))))
-    (dolist (d (if (eq backward 'all)
-		   gnus-newsgroup-data
-		 (gnus-data-find-list
-		  (gnus-summary-article-number)
-		  (gnus-data-list backward))))
-      (when (and (or (not unread)	; We want all articles...
-		     (gnus-data-unread-p d)) ; Or just unreads.
-		 (vectorp (gnus-data-header d)) ; It's not a pseudo.
-		 (string-match regexp
-			       (funcall func (gnus-data-header d)))) ; Match.
-	(push (gnus-data-number d) articles))) ; Success!
+    (while data
+      (setq d (car data))
+      (and (or (not unread)		; We want all articles...
+	       (gnus-data-unread-p d))	; Or just unreads.
+	   (vectorp (gnus-data-header d)) ; It's not a pseudo.
+	   (string-match regexp (funcall func (gnus-data-header d))) ; Match.
+	   (push (gnus-data-number d) articles)) ; Success!
+      (setq data (cdr data)))
     (nreverse articles)))
 
 (defun gnus-summary-execute-command (header regexp command &optional backward)
@@ -10021,24 +9991,25 @@
 
 (defun gnus-offer-save-summaries ()
   "Offer to save all active summary buffers."
-  (let (buffers)
-    ;; Go through all buffers and find all summaries.
-    (dolist (buffer (buffer-list))
-      (when (and (setq buffer (buffer-name buffer))
-		 (string-match "Summary" buffer)
-		 (save-excursion
-		   (set-buffer buffer)
-		   ;; We check that this is, indeed, a summary buffer.
-		   (and (eq major-mode 'gnus-summary-mode)
-			;; Also make sure this isn't bogus.
-			gnus-newsgroup-prepared
-			;; Also make sure that this isn't a
-			;; dead summary buffer.
-			(not gnus-dead-summary-mode))))
-	(push buffer buffers)))
-    ;; Go through all these summary buffers and offer to save them.
-    (when buffers
-      (save-excursion
+  (save-excursion
+    (let ((buflist (buffer-list))
+	  buffers bufname)
+      ;; Go through all buffers and find all summaries.
+      (while buflist
+	(and (setq bufname (buffer-name (car buflist)))
+	     (string-match "Summary" bufname)
+	     (save-excursion
+	       (set-buffer bufname)
+	       ;; We check that this is, indeed, a summary buffer.
+	       (and (eq major-mode 'gnus-summary-mode)
+		    ;; Also make sure this isn't bogus.
+		    gnus-newsgroup-prepared
+		    ;; Also make sure that this isn't a dead summary buffer.
+		    (not gnus-dead-summary-mode)))
+	     (push bufname buffers))
+	(setq buflist (cdr buflist)))
+      ;; Go through all these summary buffers and offer to save them.
+      (when buffers
 	(map-y-or-n-p
 	 "Update summary buffer %s? "
 	 (lambda (buf)
Index: gnus/lisp/gnus.el
diff -u gnus/lisp/gnus.el:6.27 gnus/lisp/gnus.el:6.26
--- gnus/lisp/gnus.el:6.27	Sat Apr 14 00:51:32 2001
+++ gnus/lisp/gnus.el	Sun Apr  1 04:03:59 2001
@@ -256,7 +256,7 @@
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.02"
+(defconst gnus-version-number "0.01"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Oort Gnus v%s" gnus-version-number)
Index: gnus/lisp/mm-util.el
diff -u gnus/lisp/mm-util.el:6.17 gnus/lisp/mm-util.el:6.16
--- gnus/lisp/mm-util.el:6.17	Sat Apr 14 00:51:34 2001
+++ gnus/lisp/mm-util.el	Thu Mar 15 13:57:24 2001
@@ -128,7 +128,8 @@
 	      (setq idx (1+ idx)))
 	    string)))
      (string-as-unibyte . identity)
-     (multibyte-string-p . ignore))))
+     (multibyte-string-p . ignore)
+     )))
 
 (eval-and-compile
   (defalias 'mm-char-or-char-int-p
Index: gnus/texi/gnus.texi
diff -u gnus/texi/gnus.texi:6.69 gnus/texi/gnus.texi:6.67
--- gnus/texi/gnus.texi:6.69	Sat Apr 14 01:11:15 2001
+++ gnus/texi/gnus.texi	Fri Apr 13 01:53:47 2001
@@ -365,7 +365,7 @@
 spool or your mbox file.  All at the same time, if you want to push your
 luck.
 
-This manual corresponds to Oort Gnus v.
+This manual corresponds to Oort Gnus v0.01.
 
 @end ifinfo
 
