Merge from emacs--rel--22

[gnu-emacs] / lisp / mail / supercite.el

diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el
index a752f4d29805e083d298a071c42ea0de362e6c0f..61e7d0a00ebb274c24f6d914dec9835443f2198e 100644 (file)
--- a/lisp/mail/supercite.el
+++ b/lisp/mail/supercite.el
@@ -15,7 +15,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -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))