Quit in a way similar to help buffers'

This commit is contained in:
sabof 2014-02-03 04:40:01 +00:00
parent 9b9571a9b5
commit 519a18107c
1 changed files with 17 additions and 2 deletions

View File

@ -243,14 +243,29 @@ marking if it still had that."
(goto-char (point-min))
(mu4e~fontify-cited)
(mu4e~fontify-signature)
(mu4e~view-make-urls-clickable)
(mu4e~view-make-urls-clickable)
(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
mu4e~view-buffer buf
mu4e~view-headers-buffer headersbuf)
(when embedded (local-set-key "q" 'kill-buffer-and-window))
(mu4e-view-mode))))))
(defun mu4e~view-construct-header (field val &optional dont-propertize-val)
"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