emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

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

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

Fixes #2386.
This commit is contained in:
Dirk-Jan C. Binnema 2022-12-19 22:37:33 +02:00
parent 9eaad5ad9c
commit fcda5dcc5f
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
mu4e/mu4e-view.el
View File

@ -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]