Mercurial > emacs
diff lisp/mail/rmailsum.el @ 8547:1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
on the screen if necessary--but don't scroll in that case.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 14 Aug 1994 20:15:21 +0000 |
parents | bfdf6de7fddb |
children | a241401a67ff |
line wrap: on
line diff
--- 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."