Mercurial > emacs
changeset 9545:0773b7048206
(rmail-summary-delete-forward): Don't move fwd to eob.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 15 Oct 1994 22:24:10 +0000 |
| parents | 1f8c357797a2 |
| children | c5a0a84a76a7 |
| files | lisp/mail/rmailsum.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Sat Oct 15 22:19:05 1994 +0000 +++ b/lisp/mail/rmailsum.el Sat Oct 15 22:24:10 1994 +0000 @@ -446,7 +446,10 @@ (while (and (not (if backward (bobp) (eobp))) (save-excursion (beginning-of-line) (looking-at " *[0-9]+D"))) - (forward-line (if backward -1 1)))))) + (forward-line (if backward -1 1))) + ;; It looks ugly to move to the empty line at end of buffer. + (and (eobp) (not backward) + (forward-line -1))))) (defun rmail-summary-delete-backward () "Delete this message and move to previous nondeleted one.