Commit 3d71f4b0 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

on the screen if necessary--but don't scroll in that case.
parent 4394c854
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment