Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 8547:1e68efcc6936
(rmail-summary-scroll-msg-up): Put rmail buffer
on the screen if necessary--but don't scroll in that case.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 14 Aug 1994 20:15:21 +0000 |
| parents | bfdf6de7fddb |
| children | a241401a67ff |
comparison
equal
deleted
inserted
replaced
| 8546:0dafd20c6716 | 8547:1e68efcc6936 |
|---|---|
| 829 | 829 |
| 830 (defun rmail-summary-scroll-msg-up (&optional dist) | 830 (defun rmail-summary-scroll-msg-up (&optional dist) |
| 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." |
| 838 (interactive "P") | 842 (interactive "P") |
| 839 (rmail-summary-scroll-msg-up | 843 (rmail-summary-scroll-msg-up |