diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-04-04 17:01:45 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-04-04 17:01:45 +0000 |
| commit | 83b1e78b6eebea61579729509dca394922603857 (patch) | |
| tree | e573ee8fa01eb5ee741637ec8c07887b8070a74b /lisp | |
| parent | fdb923e8c8da73adf112edb70333f6b141759c1e (diff) | |
| download | emacs-83b1e78b6eebea61579729509dca394922603857.tar.gz | |
(rmail-summary-scroll-between-messages): New var.
(rmail-summary-scroll-msg-down, rmail-summary-scroll-msg-up): Obey that var.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmailsum.el | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 7cfe5d53c15..1be1e14fae6 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -33,6 +33,10 @@ ;; For rmail-select-summary (require 'rmail) +;;;###autoload +(defvar rmail-summary-scroll-between-messages t + "*Non-nil means Rmail summary scroll commands move between messages.") + (defvar rmail-summary-font-lock-keywords '(("^....D.*" . font-lock-string-face) ; Deleted. ("^....-.*" . font-lock-type-face) ; Unread. @@ -994,7 +998,9 @@ advance to the next message." (end-of-line) (eobp))) (select-window rmail-summary-window))) - (rmail-summary-next-msg (or dist 1)) + (if (not rmail-summary-scroll-between-messages) + (error "End of buffer") + (rmail-summary-next-msg (or dist 1))) (let ((other-window-scroll-buffer rmail-buffer)) (scroll-other-window dist))) ;; This forces rmail-buffer to be sized correctly later. @@ -1019,7 +1025,9 @@ advance to the previous message." (beginning-of-line) (bobp)) (select-window rmail-summary-window))) - (rmail-summary-previous-msg (or dist 1)) + (if (not rmail-summary-scroll-between-messages) + (error "Beginning of buffer") + (rmail-summary-previous-msg (or dist 1))) (let ((other-window-scroll-buffer rmail-buffer)) (scroll-other-window-down dist))) ;; This forces rmail-buffer to be sized correctly later. |