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

Merge pull request #406 from thierryvolpiatto/master

Browse Source 
* mu4e/mu4e-compose.el (mu4e-sent-handler): Honour `message-kill-buffer-...
This commit is contained in:
Dirk-Jan C. Binnema
2014-03-30 09:25:39 -07:00
parent 14a17ff07c 1b8373f438
commit 9940614dd3
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-compose.el
View File

@ -390,16 +390,17 @@ the appropriate flag at the message forwarded or replied-to."
;; this seems a bit hamfisted... ;; this seems a bit hamfisted...
(dolist (buf (buffer-list)) (dolist (buf (buffer-list))
(when (and (buffer-file-name buf) (when (and (buffer-file-name buf)
(string= (buffer-file-name buf) path)) (string= (buffer-file-name buf) path)
message-kill-buffer-on-exit)
(kill-buffer buf))) (kill-buffer buf)))
;; now, try to go back to some previous buffer, in the order ;; now, try to go back to some previous buffer, in the order
;; view->headers->main ;; view->headers->main
(if (buffer-live-p mu4e~view-buffer) (if (buffer-live-p mu4e~view-buffer)
(switch-to-buffer mu4e~view-buffer) (switch-to-buffer mu4e~view-buffer)
(if (buffer-live-p mu4e~headers-buffer) (if (buffer-live-p mu4e~headers-buffer)
(switch-to-buffer mu4e~headers-buffer) (switch-to-buffer mu4e~headers-buffer)
;; if all else fails, back to the main view ;; if all else fails, back to the main view
(when (fboundp 'mu4e) (mu4e)))) (when (fboundp 'mu4e) (mu4e))))
(mu4e-message "Message sent")) (mu4e-message "Message sent"))
(defun mu4e~compose-set-parent-flag (path) (defun mu4e~compose-set-parent-flag (path)