* hashcash.el (mail-add-payment): Replace mapcar called for effect with mapc.

[gnus] / lisp / gnus-xmas.el

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 9a0d9dd..05da0e4 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -10,7 +10,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,
@@ -845,7 +845,7 @@ XEmacs compatibility workaround."
                             file)))
                (if glyph
                    (progn
-                     (mapcar 'delete-annotation (annotations-at myend))
+                     (mapc 'delete-annotation (annotations-at myend))
                      (let ((ext (make-extent mystart myend))
                            (ant (make-annotation glyph myend 'text)))
                        ;; set text extent params