[elpa] externals/ebdb b4e5cd4 03/16: Quit EBDB window after message is sent in mu4e

[Eric Abrahamsen]

branch: externals/ebdb
commit b4e5cd43a831e429c506a7744a047287ab51c89a
Author: Eric Abrahamsen <address@hidden>
Commit: Eric Abrahamsen <address@hidden>

    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?