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

View File

@ -245,6 +245,21 @@ marking if it still had that."
(mu4e~fontify-signature)
(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)