mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

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

Browse Source 
Renamed from rmail-output-body.
This commit is contained in:
Richard M. Stallman 1997-04-05 21:38:07 +00:00
parent ccdb79f5d9
commit a24de13400
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/mail/rmailout.el
View File

@ -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)))