diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-08-14 20:15:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-08-14 20:15:21 +0000 |
| commit | 3d71f4b0e5196f353a2ef393cd586e2d829ca8b9 (patch) | |
| tree | 7839592201b972cde1c4b5c39bd0916bdb703d17 /lisp/mail | |
| parent | 4394c854e0bf0a5c90d4d7538b79416afef87144 (diff) | |
| download | emacs-3d71f4b0e5196f353a2ef393cd586e2d829ca8b9.tar.gz | |
(rmail-summary-scroll-msg-up): Put rmail buffer
on the screen if necessary--but don't scroll in that case.
Diffstat (limited to 'lisp/mail')
| -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: "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." |