(nnvirtual-create-mapping): Don't use mapc.

2 files changed, 25 insertions, 21 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 3545e2871e6..872f1a2cabe 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+1999-10-23  Dave Love  <fx@gnu.org>
+
+        * nnvirtual.el (nnvirtual-create-mapping): Don't use mapc.
+
 1999-10-19  Dave Love  <fx@gnu.org>
 
         * pop3.el: Merge changes from version `1.3s' which we weren't sent.
diff --git a/lisp/gnus/nnvirtual.el b/lisp/gnus/nnvirtual.el
index 243717f5baf..510cd1b0517 100644
--- a/lisp/gnus/nnvirtual.el
+++ b/lisp/gnus/nnvirtual.el
@@ -671,27 +671,27 @@ based on the marks on the component groups."
     ;; Into all-unreads we put (g unreads).
     ;; Into all-marks we put (g marks).
     ;; We also increment cnt and tot here, and compute M (max of sizes).
-    (mapc (lambda (g)
-            (setq active (gnus-activate-group g)
-                  min (car active)
-                  max (cdr active))
-            (when (and active (>= max min) (not (zerop max)))
-              ;; store active information
-              (push (list g (- max min -1) max) actives)
-              ;; collect unread/mark info for later
-              (setq unreads (gnus-list-of-unread-articles g))
-              (setq marks (gnus-info-marks (gnus-get-info g)))
-              (when gnus-use-cache
-                (push (cons 'cache
-                            (gnus-cache-articles-in-group g))
-                      marks))
-              (push (cons g unreads) all-unreads)
-              (push (cons g marks) all-marks)
-              ;; count groups, total #articles, and max size
-              (setq size (- max min -1))
-              (setq cnt (1+ cnt)
-                    tot (+ tot size)
-                    M (max M size))))
+    (mapcar (lambda (g)
+              (setq active (gnus-activate-group g)
+                    min (car active)
+                    max (cdr active))
+              (when (and active (>= max min) (not (zerop max)))
+                ;; store active information
+                (push (list g (- max min -1) max) actives)
+                ;; collect unread/mark info for later
+                (setq unreads (gnus-list-of-unread-articles g))
+                (setq marks (gnus-info-marks (gnus-get-info g)))
+                (when gnus-use-cache
+                  (push (cons 'cache
+                              (gnus-cache-articles-in-group g))
+                        marks))
+                (push (cons g unreads) all-unreads)
+                (push (cons g marks) all-marks)
+                ;; count groups, total #articles, and max size
+                (setq size (- max min -1))
+                (setq cnt (1+ cnt)
+                      tot (+ tot size)
+                      M (max M size))))
           nnvirtual-component-groups)
 
     ;; Number of articles in the virtual group.