branch: externals/ebdb
commit b4e5cd43a831e429c506a7744a047287ab51c89a
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
Quit EBDB window after message is sent in mu4e
* ebdb-mu4e.el (ebdb-insinuate-mu4e): mu4e also uses message mode. In
Gnus, we don't need to quit the EBDB buffer because Gnus recofigures
the windows for us. In mu4e, do it manually.
---
ebdb-mu4e.el | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/ebdb-mu4e.el b/ebdb-mu4e.el
index 76baa92..e7be16e 100644
--- a/ebdb-mu4e.el
+++ b/ebdb-mu4e.el
@@ -25,6 +25,7 @@
;;; Code:
(require 'ebdb-mua)
+(require 'ebdb-message)
(if t (require 'mu4e-view))
(defvar mu4e~view-buffer-name)
@@ -45,7 +46,13 @@
(defun ebdb-insinuate-mu4e ()
"Hook EBDB into mu4e."
;; Tackle headers later
- (define-key mu4e-view-mode-map ";" ebdb-mua-keymap))
+ (define-key mu4e-view-mode-map ";" ebdb-mua-keymap)
+ (add-hook 'message-sent-hook
+ (lambda ()
+ (let ((win (get-buffer-window (ebdb-message-buffer-name))))
+ (when (and win
+ (window-live-p win))
+ (quit-window nil win))))))
;; Why wasn't `ebdb-mua-auto-update' ever hooked in to mu4e?
