diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 069ac116797..30b4741b37b 100644
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -413,9 +413,9 @@ performed.")
 		   (if (looking-at "movemail: ")
 		       (delete-region (point-min) (match-end 0)))
 		   (beep t)
-		   (message (concat "movemail: "
-				    (buffer-substring (point-min)
-						      (point-max))))
+		   (message "movemail: %s"
+			    (buffer-substring (point-min)
+					      (point-max)))
 		   (sit-for 3)
 		   nil)))))
     (and errors