Mercurial > emacs

diff lisp/mail/supercite.el @ 91041:bdb3fe0ba9fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 866-879) - Merge multi-tty branch - Update from CVS - Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2007 16:22:07 +0000
parents f55f9811f5d7 ac461e78456b
children 53108e6cea98
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Thu Oct 11 16:14:00 2007 +0000
+++ b/lisp/mail/supercite.el	Thu Oct 11 16:22:07 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))