branch: externals/ebdb
commit 4e1ea30b5911d4b303b631b96fe06d0e541e5514
Author: Eric Abrahamsen <[email protected]>
Commit: Eric Abrahamsen <[email protected]>
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'.
