From: ShengHuo ZHU <zsh@cs.rochester.edu>
Date: Wed, 19 Dec 2001 14:35:02 +0000 (+0000)
Subject: 2001-12-19  Katsumi Yamaoka  <yamaoka@jpl.org>
X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=4964966b9d9845524ddcd457a4c2f34f97471244

2001-12-19  Katsumi Yamaoka  <yamaoka@jpl.org>

	* gnus.el (gnus-find-subscribed-addresses): Replace `mapc' with
	`dolist'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 13079a414..a7a31e874 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-12-19  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* gnus.el (gnus-find-subscribed-addresses): Replace `mapc' with
+	`dolist'.
+
 2001-12-19 01:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
 	* gnus-win.el (gnus-frames-on-display-list): New.
diff --git a/lisp/gnus.el b/lisp/gnus.el
index 216c82990..745175b22 100644
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -2318,16 +2318,14 @@ This restriction may disappear in later versions of Gnus."
   "Return a regexp matching the addresses of all subscribed mail groups.
 It consists of the `to-address' or `to-list' parameter of all groups
 with a `subscribed' parameter."
-  (let ((addresses))
-    (mapc (lambda (entry)
-	    (let ((group (car entry)))
-	      (when (gnus-group-find-parameter group 'subscribed)
-		(let ((address (or
-				(gnus-group-fast-parameter group 'to-address)
-				(gnus-group-fast-parameter group 'to-list))))
-		  (when address
-		    (setq addresses (cons address addresses)))))))
-	  (cdr gnus-newsrc-alist))
+  (let (group address addresses)
+    (dolist (entry (cdr gnus-newsrc-alist))
+      (setq group (car entry))
+      (when (gnus-group-find-parameter group 'subscribed)
+	(setq address (or (gnus-group-fast-parameter group 'to-address)
+			  (gnus-group-fast-parameter group 'to-list)))
+	(when address
+	  (push address addresses))))
     (list (mapconcat 'regexp-quote addresses "\\|"))))
 
 (defmacro gnus-string-or (&rest strings)