Mercurial > emacs

changeset 8547:1e68efcc6936

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0dafd20c6716
children 46da92c1706c
files lisp/mail/rmailsum.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
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."