* 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 d563838..05da0e4 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -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