From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Apr 1997 21:38:07 +0000 (+0000)
Subject: (rmail-output-body-to-file): Query if file exists.
X-Git-Tag: emacs-20.1~2640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a24de134006e8c1435cce5052738cdcead4d3bb9;p=emacs.git

(rmail-output-body-to-file): Query if file exists.
Renamed from rmail-output-body.
---

diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el
index a82a9649afb..90ee095a46b 100644
--- a/lisp/mail/rmailout.el
+++ b/lisp/mail/rmailout.el
@@ -320,7 +320,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS."
       (kill-buffer tembuf))))
 
 ;;;###autoload
-(defun rmail-output-body (file-name)
+(defun rmail-output-body-to-file (file-name)
   "Write this message body to the file FILE-NAME.
 FILE-NAME defaults, interactively, from the Subject field of the message."
   (interactive
@@ -334,6 +334,9 @@ FILE-NAME defaults, interactively, from the Subject field of the message."
   (save-excursion
     (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)))
+	 (error "Operation aborted"))
     (write-region (point) (point-max) file-name)
     (if (equal major-mode 'rmail-mode)
 	(rmail-set-attribute "stored" t)))