mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(rmail-summary-scroll-between-messages): New var.

Browse source 
(rmail-summary-scroll-msg-down, rmail-summary-scroll-msg-up): Obey that var.
This commit is contained in:
Richard M. Stallman 1996-04-04 17:01:45 +00:00
parent bfe2d334fd
commit be2e861f98
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/mail/rmailsum.el
View file

@ -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.