From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Oct 1994 10:18:02 +0000 (+0000)
Subject: (rmail-summary-previous-all)
X-Git-Tag: emacs-19.34~6314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc101382e8ce745cdb17236c22aa2d0ddbf817c3;p=emacs.git

(rmail-summary-previous-all)
(rmail-summary-next-all): Don't move forward to the end of the buffer.
---

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 095486d1e63..0829224a3eb 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -379,11 +379,17 @@ nil for FUNCTION means all messages."
 (defun rmail-summary-next-all (&optional number)
   (interactive "p")
   (forward-line (if number number 1))
+  ;; It doesn't look nice to move forward past the last message line.
+  (and (eobp) (> number 0)
+       (forward-line -1))
   (display-buffer rmail-buffer))
 
 (defun rmail-summary-previous-all (&optional number)
   (interactive "p")
   (forward-line (- (if number number 1)))
+  ;; It doesn't look nice to move forward past the last message line.
+  (and (eobp) (< number 0)
+       (forward-line -1))
   (display-buffer rmail-buffer))
 
 (defun rmail-summary-next-msg (&optional number)