# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 776895321 0
# Node ID 1e68efcc69363af53b02719c9cf40d815f09c2ca
# Parent  0dafd20c6716dc6bbc591bf6835cd8af1dae7b51
(rmail-summary-scroll-msg-up): Put rmail buffer
on the screen if necessary--but don't scroll in that case.

diff -r 0dafd20c6716 -r 1e68efcc6936 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Sun Aug 14 10:07:00 1994 +0000
+++ b/lisp/mail/rmailsum.el	Sun Aug 14 20:15:21 1994 +0000
@@ -831,7 +831,11 @@
   "Scroll the Rmail window forward."
   (interactive "P")
   (let ((other-window-scroll-buffer rmail-buffer))
-    (scroll-other-window dist)))
+    (if (get-buffer-window rmail-buffer)
+	(scroll-other-window dist)
+      ;; This forces rmail-buffer to be sized correctly later.
+      (display-buffer rmail-buffer)
+      (setq rmail-current-message nil))))
 
 (defun rmail-summary-scroll-msg-down (&optional dist)
   "Scroll the Rmail window backward."