[elpa] externals/ebdb 4e1ea30 15/16: Fix to "Remove EBDB-Message buffer after killing..." etc

[Eric Abrahamsen]

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

    Fix to "Remove EBDB-Message buffer after killing..." etc
    
    * ebdb-message.el (ebdb-message-quit-ebdb): This way of doing it makes
      sure the `quit-window' only fires when the EBDB buffer is actually
      visible.
---
 ebdb-message.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ebdb-message.el b/ebdb-message.el
index 2d1d44a..3eb59e8 100644
--- a/ebdb-message.el
+++ b/ebdb-message.el
@@ -104,9 +104,9 @@ See Gnus' manual for details."
 (defun ebdb-message-quit-ebdb ()
   "Remove the EBDB window if the user kills the message buffer.
 Also fires when postponing a draft."
-  (let ((buf (get-buffer (ebdb-message-buffer-name))))
-    (when (and (bufferp buf) (buffer-live-p buf))
-      (quit-window nil (get-buffer-window buf)))))
+  (let ((win (get-buffer-window (ebdb-message-buffer-name))))
+    (when win
+      (quit-window nil win))))
 
 (defun ebdb-insinuate-message ()
   ;; We don't currently bind the `ebdb-mua-keymap'.