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

[gnus] / lisp / mml.el

diff --git a/lisp/mml.el b/lisp/mml.el
index 64ed560..6657414 100644 (file)
--- a/lisp/mml.el
+++ b/lisp/mml.el
@@ -889,7 +889,7 @@ If HANDLES is non-nil, use it instead reparsing the buffer."
       (goto-char (point-max))
       (insert "<#/mml>\n"))
      ((stringp (car handle))
-      (mapcar 'mml-insert-mime (cdr handle))
+      (mapc 'mml-insert-mime (cdr handle))
       (insert "<#/multipart>\n"))
      (textp
       (let ((charset (mail-content-type-get