Mercurial > emacs
comparison lisp/mail/rmailout.el @ 73972:98d8e09fad2d
(rmail-output-body-to-file): Use `format', not `message', in `y-or-n-p' call.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Mon, 13 Nov 2006 10:25:40 +0000 |
| parents | 067115a6e738 |
| children | e3694f1cb928 dbe3f29e61d6 |
comparison
equal
deleted
inserted
replaced
| 73971:4ef05dc6f458 | 73972:98d8e09fad2d |
|---|---|
| 406 (file-name-directory rmail-default-body-file)))) | 406 (file-name-directory rmail-default-body-file)))) |
| 407 (save-excursion | 407 (save-excursion |
| 408 (goto-char (point-min)) | 408 (goto-char (point-min)) |
| 409 (search-forward "\n\n") | 409 (search-forward "\n\n") |
| 410 (and (file-exists-p file-name) | 410 (and (file-exists-p file-name) |
| 411 (not (y-or-n-p (message "File %s exists; overwrite? " file-name))) | 411 (not (y-or-n-p (format "File %s exists; overwrite? " file-name))) |
| 412 (error "Operation aborted")) | 412 (error "Operation aborted")) |
| 413 (write-region (point) (point-max) file-name) | 413 (write-region (point) (point-max) file-name) |
| 414 (if (equal major-mode 'rmail-mode) | 414 (if (equal major-mode 'rmail-mode) |
| 415 (rmail-set-attribute "stored" t))) | 415 (rmail-set-attribute "stored" t))) |
| 416 (if rmail-delete-after-output | 416 (if rmail-delete-after-output |