diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2014-06-18 15:33:55 +0200 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2014-06-18 15:33:55 +0200 |
| commit | 2382abddf326fa2ba6b87c3036d0d4636ad48e8f (patch) | |
| tree | a53d2dfede471052d7f47607739e4da551414a66 /mu4e | |
| parent | 66303262cd5573617ca77c2e8b6736c27759c2ce (diff) | |
* mu4e/mu4e-compose.el (mu4e~compose-handler): Kill buffer on quit, transformed in defun*.
Diffstat (limited to 'mu4e')
| -rw-r--r-- | mu4e/mu4e-compose.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/mu4e/mu4e-compose.el b/mu4e/mu4e-compose.el index 2320e1b..b62e096 100644 --- a/mu4e/mu4e-compose.el +++ b/mu4e/mu4e-compose.el @@ -326,7 +326,7 @@ appear on disk." mu4e~compose-buffer-max-name-length nil nil t))))) -(defun mu4e~compose-handler (compose-type &optional original-msg includes) +(defun* mu4e~compose-handler (compose-type &optional original-msg includes) "Create a new draft message, or open an existing one. COMPOSE-TYPE determines the kind of message to compose and is a @@ -352,7 +352,10 @@ tempfile)." (run-hooks 'mu4e-compose-pre-hook) ;; this opens (or re-opens) a messages with all the basic headers set. - (mu4e-draft-open compose-type original-msg) + (condition-case nil + (mu4e-draft-open compose-type original-msg) + (quit (kill-buffer) (message "[mu4e] Operation aborted") + (return-from mu4e~compose-handler))) ;; insert mail-header-separator, which is needed by message mode to separate ;; headers and body. will be removed before saving to disk (mu4e~draft-insert-mail-header-separator) |