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 13079a4..a7a31e8 100644 (file)
--- 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 216c829..745175b 100644 (file)
--- 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)