# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1190950022 0
# Node ID ac461e78456bcff877b6d9148a94e727b151ce2b
# Parent  29a2854dd601407ca035f472a978f817ab035ade
(sc-attribs-filter-namelist): Use mapc rather than mapcar.

diff -r 29a2854dd601 -r ac461e78456b lisp/mail/supercite.el
--- a/lisp/mail/supercite.el	Thu Sep 27 21:20:07 2007 +0000
+++ b/lisp/mail/supercite.el	Fri Sep 28 03:27:02 2007 +0000
@@ -1038,12 +1038,12 @@
   (let ((elements (length namelist))
 	(position -1)
 	keepers filtered-list)
-    (mapcar
+    (mapc
      (function
       (lambda (name)
 	(setq position (1+ position))
 	(let ((keep-p t))
-	  (mapcar
+	  (mapc
 	   (function
 	    (lambda (filter)
 	      (let ((regexp (car filter))
@@ -1061,7 +1061,7 @@
 	      (setq keepers (cons position keepers)))
 	  )))
      namelist)
-    (mapcar
+    (mapc
      (function
       (lambda (position)
 	(setq filtered-list (cons (nth position namelist) filtered-list))