Quit in a way similar to help buffers'
This commit is contained in:
@ -243,14 +243,29 @@ marking if it still had that."
|
|||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(mu4e~fontify-cited)
|
(mu4e~fontify-cited)
|
||||||
(mu4e~fontify-signature)
|
(mu4e~fontify-signature)
|
||||||
(mu4e~view-make-urls-clickable)
|
(mu4e~view-make-urls-clickable)
|
||||||
(mu4e~view-show-images-maybe msg)
|
(mu4e~view-show-images-maybe msg)
|
||||||
|
|
||||||
|
(let* ((headers-window
|
||||||
|
(or (case mu4e-split-view
|
||||||
|
(horizontal (window-in-direction 'above))
|
||||||
|
(vertical (window-in-direction 'left)))
|
||||||
|
(get-buffer-window mu4e~view-headers-buffer))))
|
||||||
|
(when (and mu4e-split-view headers-window)
|
||||||
|
(set-window-prev-buffers nil nil)
|
||||||
|
(set-window-parameter nil
|
||||||
|
'quit-restore
|
||||||
|
(list 'window
|
||||||
|
'window
|
||||||
|
headers-window
|
||||||
|
(current-buffer)))))
|
||||||
|
|
||||||
(setq
|
(setq
|
||||||
mu4e~view-buffer buf
|
mu4e~view-buffer buf
|
||||||
mu4e~view-headers-buffer headersbuf)
|
mu4e~view-headers-buffer headersbuf)
|
||||||
(when embedded (local-set-key "q" 'kill-buffer-and-window))
|
(when embedded (local-set-key "q" 'kill-buffer-and-window))
|
||||||
(mu4e-view-mode))))))
|
(mu4e-view-mode))))))
|
||||||
|
|
||||||
(defun mu4e~view-construct-header (field val &optional dont-propertize-val)
|
(defun mu4e~view-construct-header (field val &optional dont-propertize-val)
|
||||||
"Return header field FIELD (as in `mu4e-header-info') with value
|
"Return header field FIELD (as in `mu4e-header-info') with value
|
||||||
VAL if VAL is non-nil. If DONT-PROPERTIZE-VAL is non-nil, do not
|
VAL if VAL is non-nil. If DONT-PROPERTIZE-VAL is non-nil, do not
|
||||||
|
|||||||
Reference in New Issue
Block a user