diff options
| author | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2014-06-27 14:21:52 +0300 |
|---|---|---|
| committer | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2014-06-27 14:21:52 +0300 |
| commit | 6d84ee323bd2a4c2267b15952e64ca04a03d4193 (patch) | |
| tree | de6c5b149dde5964e322cacc7b7ffae6a4878128 | |
| parent | bbfb81d73edbfb9c01e91add662b5ec228bcaa7c (diff) | |
| parent | 6319a5d53d251fdeba96ace825e6478c0b788714 (diff) | |
Merge pull request #445 from thierryvolpiatto/masterlist
* mu4e: kill composition buffer when quitting from reply prompt
| -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) |