Commit 3f4e31a2 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-new-summary): If just one window,

put the summary in the upper window and Rmail buffer below.
parent a2e667ec
......@@ -198,7 +198,17 @@ nil for FUNCTION means all messages."
(setq rmail-summary-buffer sumbuf))
;; Now display the summary buffer and go to the right place in it.
(or was-in-summary
(pop-to-buffer sumbuf))
(if (one-window-p)
;; If there is just one window, put the summary on the top.
(progn
(split-window)
(select-window (next-window (frame-first-window)))
(pop-to-buffer sumbuf)
;; If pop-to-buffer did not use that window, delete that
;; window. (This can happen if it uses another frame.)
(if (not (eq sumbuf (window-buffer (frame-first-window))))
(delete-other-windows)))
(pop-to-buffer sumbuf)))
(rmail-summary-goto-msg mesg t t)
(message "Computing summary lines...done")))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment