From cc101382e8ce745cdb17236c22aa2d0ddbf817c3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Oct 1994 10:18:02 +0000 Subject: [PATCH] (rmail-summary-previous-all) (rmail-summary-next-all): Don't move forward to the end of the buffer. --- lisp/mail/rmailsum.el | 6 ++++++ 1 file changed, 6 insertions(+) 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) -- 2.39.5