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