alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu4e: fix compose cancel orphaning a buffer

Browse Source 
Create buffer contents _before_ creating the file.
This commit is contained in:
Thomas Moulia
2016-01-31 21:48:41 -08:00
committed by djcb
parent 29a4ae1c83
commit 8f5df6cca0
1 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
mu4e/mu4e-draft.el
View File

@ -430,17 +430,18 @@ from either `mu4e~draft-reply-construct', or
(format "%s/%s/cur/%s" (format "%s/%s/cur/%s"
mu4e-maildir mu4e-maildir
draft-dir draft-dir
(mu4e~draft-message-filename-construct "DS")))) (mu4e~draft-message-filename-construct "DS")))
(if (and mu4e-compose-in-new-frame (window-system)) (initial-contents
(case compose-type
(reply (mu4e~draft-reply-construct msg))
(forward (mu4e~draft-forward-construct msg))
(new (mu4e~draft-newmsg-construct))
(t (mu4e-error "unsupported compose-type %S" compose-type)))))
(if (and mu4e-compose-in-new-frame (window-system))
(find-file-other-frame draft-path) (find-file-other-frame draft-path)
(find-file draft-path))) (find-file draft-path))
(insert (insert initial-contents))
(case compose-type (newline)
(reply (mu4e~draft-reply-construct msg))
(forward (mu4e~draft-forward-construct msg))
(new (mu4e~draft-newmsg-construct))
(t (mu4e-error "unsupported compose-type %S" compose-type))))
(newline)
;; include the message signature (if it's set) ;; include the message signature (if it's set)
(if (and mu4e-compose-signature-auto-include mu4e-compose-signature) (if (and mu4e-compose-signature-auto-include mu4e-compose-signature)
(let ((message-signature mu4e-compose-signature)) (let ((message-signature mu4e-compose-signature))