From 804edf0342db48405bd2c17132be4640c562ed4c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 28 Sep 2007 03:27:02 +0000 Subject: [PATCH] (sc-attribs-filter-namelist): Use mapc rather than mapcar. --- lisp/mail/supercite.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index cf9c9369497..61e7d0a00eb 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1038,12 +1038,12 @@ supplied, is used instead of the line point is on in the current buffer." (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 @@ supplied, is used instead of the line point is on in the current buffer." (setq keepers (cons position keepers))) ))) namelist) - (mapcar + (mapc (function (lambda (position) (setq filtered-list (cons (nth position namelist) filtered-list)) -- 2.39.2