# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 775554402 0
# Node ID 7d471f6a99392ceb155d4a5687332e63011e89e7
# Parent  4c88569aaa737aa2d0ef29378a061bf0323a36d1
(rmail-new-summary): If just one window,
put the summary in the upper window and Rmail buffer below.

diff -r 4c88569aaa73 -r 7d471f6a9939 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Sat Jul 30 07:46:03 1994 +0000
+++ b/lisp/mail/rmailsum.el	Sat Jul 30 07:46:42 1994 +0000
@@ -198,7 +198,17 @@
       (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")))