diff options
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files changed, 5 insertions, 1 deletions
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: | |||
| 831 | "Scroll the Rmail window forward." | 831 | "Scroll the Rmail window forward." |
| 832 | (interactive "P") | 832 | (interactive "P") |
| 833 | (let ((other-window-scroll-buffer rmail-buffer)) | 833 | (let ((other-window-scroll-buffer rmail-buffer)) |
| 834 | (scroll-other-window dist))) | 834 | (if (get-buffer-window rmail-buffer) |
| 835 | (scroll-other-window dist) | ||
| 836 | ;; This forces rmail-buffer to be sized correctly later. | ||
| 837 | (display-buffer rmail-buffer) | ||
| 838 | (setq rmail-current-message nil)))) | ||
| 835 | 839 | ||
| 836 | (defun rmail-summary-scroll-msg-down (&optional dist) | 840 | (defun rmail-summary-scroll-msg-down (&optional dist) |
| 837 | "Scroll the Rmail window backward." | 841 | "Scroll the Rmail window backward." |