# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 828637305 0
# Node ID 9dceb7afbb68f6f6f91d9b61e02f70570fbb24b8
# Parent  c0e8ab5d23fce8c548e23555156f9b5d5b2eb7c7
(rmail-summary-scroll-between-messages): New var.
(rmail-summary-scroll-msg-down, rmail-summary-scroll-msg-up): Obey that var.

diff -r c0e8ab5d23fc -r 9dceb7afbb68 lisp/mail/rmailsum.el
--- a/lisp/mail/rmailsum.el	Thu Apr 04 16:38:59 1996 +0000
+++ b/lisp/mail/rmailsum.el	Thu Apr 04 17:01:45 1996 +0000
@@ -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 @@
 			(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 @@
 		      (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.