diff options
| author | Karl Heuer <[email protected]> | 1994-04-25 23:11:12 +0000 |
|---|---|---|
| committer | Karl Heuer <[email protected]> | 1994-04-25 23:11:12 +0000 |
| commit | 431e100fd163ec52fd1d27029ce914688e0d191d (patch) | |
| tree | 6610b85ff909719051944a6e62df72c97b6bc687 | |
| parent | 06ef4a3f7e814690a852ef8427c75b8e3c6a7900 (diff) | |
(rmail-summary-scroll-msg-up, rmail-summary-scroll-msg-down): Scroll
rmail-buffer explicitly
| -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)))))) |