diff options
author | Glenn Morris <[email protected]> | 2007-09-28 03:27:02 +0000 |
---|---|---|
committer | Glenn Morris <[email protected]> | 2007-09-28 03:27:02 +0000 |
commit | 804edf0342db48405bd2c17132be4640c562ed4c (patch) | |
tree | 3b673129a8a0abdf6d9a5cfe21393a1fb651a418 /lisp/mail | |
parent | 75a8734b11821d807cf64b42c66f8fe141ad4e5e (diff) |
(sc-attribs-filter-namelist): Use mapc rather than mapcar.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/supercite.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index cf9c936949..61e7d0a00e 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)) |