From 3d71f4b0e5196f353a2ef393cd586e2d829ca8b9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 14 Aug 1994 20:15:21 +0000 Subject: [PATCH] (rmail-summary-scroll-msg-up): Put rmail buffer on the screen if necessary--but don't scroll in that case. --- lisp/mail/rmailsum.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index a0296a90685..10c5f7ef3af 100644 --- 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." -- 2.39.5