Mercurial > emacs
changeset 8385:7d471f6a9939
(rmail-new-summary): If just one window,
put the summary in the upper window and Rmail buffer below.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 30 Jul 1994 07:46:42 +0000 |
| parents | 4c88569aaa73 |
| children | 1c42688133ee |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 11 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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")))