# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1163413540 0
# Node ID 98d8e09fad2d928f03f7042c3d0503c2671b55c0
# Parent  4ef05dc6f45829b727586dc948f1ee75dba5f1ee
(rmail-output-body-to-file): Use `format', not `message', in `y-or-n-p' call.

diff -r 4ef05dc6f458 -r 98d8e09fad2d lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Mon Nov 13 10:24:55 2006 +0000
+++ b/lisp/mail/rmailout.el	Mon Nov 13 10:25:40 2006 +0000
@@ -408,7 +408,7 @@
     (goto-char (point-min))
     (search-forward "\n\n")
     (and (file-exists-p file-name)
-	 (not (y-or-n-p (message "File %s exists; overwrite? " file-name)))
+	 (not (y-or-n-p (format "File %s exists; overwrite? " file-name)))
 	 (error "Operation aborted"))
     (write-region (point) (point-max) file-name)
     (if (equal major-mode 'rmail-mode)