Mercurial > emacs
changeset 1741:bc25cbeb27c0
(mail-send): Don't clear modified or delete autosave if visiting a file.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 07 Jan 1993 10:18:46 +0000 |
| parents | 6d74de06a35d |
| children | 69e337909652 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 8 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Thu Jan 07 02:50:39 1993 +0000 +++ b/lisp/mail/sendmail.el Thu Jan 07 10:18:46 1993 +0000 @@ -241,12 +241,16 @@ ;; Now perform actions on successful sending. (while mail-send-actions (condition-case nil - (apply (car (car mail-send-actions)) (cdr (car mail-send-actions))) + (apply (car (car mail-send-actions)) + (cdr (car mail-send-actions))) (error)) (setq mail-send-actions (cdr mail-send-actions))) - (set-buffer-modified-p nil) - (delete-auto-save-file-if-necessary t) - (message "Sending...done")))) + (message "Sending...done") + ;; If buffer has no file, mark it as unmodified and delete autosave. + (if (not buffer-file-name) + (progn + (set-buffer-modified-p nil) + (delete-auto-save-file-if-necessary t)))))) (defun sendmail-send-it () (let ((errbuf (if mail-interactive