diff options
-rw-r--r-- | lisp/mail/rmailsum.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 2a80ff4469..47a3e90da2 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -802,14 +802,15 @@ Commands for sorting the summary: (select-window selwin)))))) (defun rmail-summary-scroll-msg-up (&optional dist) - "Scroll other window forward." + "Scroll the Rmail window forward." (interactive "P") - (scroll-other-window dist)) + (let ((other-window-scroll-buffer rmail-buffer)) + (scroll-other-window dist))) (defun rmail-summary-scroll-msg-down (&optional dist) - "Scroll other window backward." + "Scroll the Rmail window backward." (interactive "P") - (scroll-other-window + (rmail-summary-scroll-msg-up (cond ((eq dist '-) nil) ((null dist) '-) (t (- (prefix-numeric-value dist)))))) |