mu4e-view: Re-add mu4e-view-quit

Add special handling for single-window/other for view buffer quitting

Fixes #2386.

1 files changed, 10 insertions, 3 deletions

diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el
index fab4b8b..e49a7a0 100644
--- a/mu4e/mu4e-view.el
+++ b/mu4e/mu4e-view.el
@@ -841,12 +841,19 @@ This is useful for advising some Gnus-functionality that does not work in mu4e."
       (apply 'mu4e~compose-mail args)
     (apply func args)))
 
+(defun mu4e-view-quit ()
+  "Quit the mu4e-view buffer."
+  (interactive)
+  (if (memq mu4e-split-view '(horizontal vertical))
+      (kill-buffer-and-window)
+    (kill-buffer)))
+
 (defvar mu4e-view-mode-map
   (let ((map (make-keymap)))
     (define-key map  (kbd "C-S-u") #'mu4e-update-mail-and-index)
     (define-key map  (kbd "C-c C-u") #'mu4e-update-mail-and-index)
 
-    (define-key map "q" #'kill-buffer-and-window)
+    (define-key map "q" #'mu4e-view-quit)
 
     (define-key map "z" #'mu4e-view-detach)
     (define-key map "Z" #'mu4e-view-attach)
@@ -946,8 +953,8 @@ This is useful for advising some Gnus-functionality that does not work in mu4e."
       (define-key map [menu-bar headers] (cons "Mu4e" menumap))
 
       (define-key menumap [quit-buffer]
-                  '("Quit view" . kill-buffer-and-window))
-      (define-key menumap [display-help] '("Help" . kill-buffer-and-window))
+                  '("Quit view" . mu4e-view-quit))
+      (define-key menumap [display-help] '("Help" . mu4e-view-quit))
 
       (define-key menumap [sepa0] '("--"))
       (define-key menumap [wrap-lines]