comparison lisp/mail/rmailsum.el @ 8385:7d471f6a9939

(rmail-new-summary): If just one window, put the summary in the upper window and Rmail buffer below.

8384:4c88569aaa73

		  rmail-summary-redo redo-form
		  rmail-total-messages total))))
      (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))
    (rmail-summary-goto-msg mesg t t)
    (message "Computing summary lines...done")))

;; Low levels of generating a summary.

8385:7d471f6a9939

		  rmail-summary-redo redo-form
		  rmail-total-messages total))))
      (setq rmail-summary-buffer sumbuf))
    ;; Now display the summary buffer and go to the right place in it.
    (or was-in-summary
	(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")))

;; Low levels of generating a summary.