diff options
| author | Richard M. Stallman | 1994-10-15 10:18:02 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-15 10:18:02 +0000 |
| commit | cc101382e8ce745cdb17236c22aa2d0ddbf817c3 (patch) | |
| tree | 1eb57bb06026eec9f264b621beb46f06d5c963f0 | |
| parent | d0d74413b708a53a2ec0db35ffb5e47b818b88d1 (diff) | |
| download | emacs-cc101382e8ce745cdb17236c22aa2d0ddbf817c3.tar.gz emacs-cc101382e8ce745cdb17236c22aa2d0ddbf817c3.zip | |
(rmail-summary-previous-all)
(rmail-summary-next-all): Don't move forward to the end of the buffer.
| -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) |