diff options
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files changed, 6 insertions, 0 deletions
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." | |||
| 379 | (defun rmail-summary-next-all (&optional number) | 379 | (defun rmail-summary-next-all (&optional number) |
| 380 | (interactive "p") | 380 | (interactive "p") |
| 381 | (forward-line (if number number 1)) | 381 | (forward-line (if number number 1)) |
| 382 | ;; It doesn't look nice to move forward past the last message line. | ||
| 383 | (and (eobp) (> number 0) | ||
| 384 | (forward-line -1)) | ||
| 382 | (display-buffer rmail-buffer)) | 385 | (display-buffer rmail-buffer)) |
| 383 | 386 | ||
| 384 | (defun rmail-summary-previous-all (&optional number) | 387 | (defun rmail-summary-previous-all (&optional number) |
| 385 | (interactive "p") | 388 | (interactive "p") |
| 386 | (forward-line (- (if number number 1))) | 389 | (forward-line (- (if number number 1))) |
| 390 | ;; It doesn't look nice to move forward past the last message line. | ||
| 391 | (and (eobp) (< number 0) | ||
| 392 | (forward-line -1)) | ||
| 387 | (display-buffer rmail-buffer)) | 393 | (display-buffer rmail-buffer)) |
| 388 | 394 | ||
| 389 | (defun rmail-summary-next-msg (&optional number) | 395 | (defun rmail-summary-next-msg (&optional number) |