From 519a18107cb0477cfae7b92d11c0c61190a9bdc0 Mon Sep 17 00:00:00 2001 From: sabof Date: Mon, 3 Feb 2014 04:40:01 +0000 Subject: [PATCH] Quit in a way similar to help buffers' --- mu4e/mu4e-view.el | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/mu4e/mu4e-view.el b/mu4e/mu4e-view.el index c3c6aa2b..c3b7280d 100644 --- a/mu4e/mu4e-view.el +++ b/mu4e/mu4e-view.el @@ -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