2 files changed, 16 insertions, 11 deletions

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index f262a6324fb..fb824f08996 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-13  Glenn Morris  <rgm@gnu.org>
+
+        * erc-track.el (erc-modified-channels-update): Use mapc rather
+        than mapcar.
+
 2007-09-18  Exal de Jesus Garcia Carrillo  <exal@gmx.de>  (tiny change)
 
         * erc.texi (Special-Features): Fix small typo.
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el
index 1408adcd942..ad3eaf73a4b 100644
--- a/lisp/erc/erc-track.el
+++ b/lisp/erc/erc-track.el
@@ -701,17 +701,17 @@ ARGS are ignored."
   (unless erc-modified-channels-update-inside
     (let ((erc-modified-channels-update-inside t)
           (removed-channel nil))
-      (mapcar (lambda (elt)
-                (let ((buffer (car elt)))
-                  (when (or (not (bufferp buffer))
-                            (not (buffer-live-p buffer))
-                            (erc-buffer-visible buffer)
-                            (and erc-track-remove-disconnected-buffers
-                            (not (with-current-buffer buffer
-                                        erc-server-connected))))
-                    (setq removed-channel t)
-                    (erc-modified-channels-remove-buffer buffer))))
-              erc-modified-channels-alist)
+      (mapc (lambda (elt)
+              (let ((buffer (car elt)))
+                (when (or (not (bufferp buffer))
+                          (not (buffer-live-p buffer))
+                          (erc-buffer-visible buffer)
+                          (and erc-track-remove-disconnected-buffers
+                               (not (with-current-buffer buffer
+                                      erc-server-connected))))
+                  (setq removed-channel t)
+                  (erc-modified-channels-remove-buffer buffer))))
+            erc-modified-channels-alist)
       (when removed-channel
       (erc-modified-channels-display)
         (force-mode-line-update t)))))