(rmail-summary-scroll-msg-up): Put rmail buffer

on the screen if necessary--but don't scroll in that case.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index a0296a9068551cbfdaa1f78245666eb4d9cd71dd..10c5f7ef3af7765920d4326688639a75ece3d3b6 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -831,7 +831,11 @@ Commands for sorting the summary:
   "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."