Commit d2561f34 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mail-send): Don't clear modified or delete autosave if visiting a file.

parent 79926889
......@@ -241,12 +241,16 @@ the user from the mailer."
;; 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)))
(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)
(set-buffer-modified-p nil)
(delete-auto-save-file-if-necessary t))))))
(defun sendmail-send-it ()
(let ((errbuf (if mail-interactive
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment