From e9f3aa5c9ff474b2700d1c982f93a1d37aa6a3ca Mon Sep 17 00:00:00 2001
From: Artur Malabarba <bruce.connor.am@gmail.com>
Date: Wed, 17 Dec 2014 12:36:58 -0200
Subject: Close compose window when buffer is killed.

---
 sx-compose.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/sx-compose.el b/sx-compose.el
index af9d861..5201435 100644
--- a/sx-compose.el
+++ b/sx-compose.el
@@ -117,9 +117,12 @@ contents to the API, then calls `sx-compose-after-send-functions'."
                               (current-buffer) result)))))
 
 (defun sx-compose-quit (buffer _)
-  "Kill BUFFER."
+  "Close BUFFER's window and kill it."
   (interactive (list (current-buffer) nil))
   (when (buffer-live-p buffer)
+    (let ((w (get-buffer-window buffer)))
+      (when (window-live-p w)
+        (delete-window w)))
     (kill-buffer buffer)))
 
 (defun sx-compose--copy-as-kill (buffer _)
-- 
cgit v1.2.3