diff options
| -rw-r--r-- | lisp/mail/rmailsum.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 0829224a3eb..c982c058c78 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el | |||
| @@ -446,7 +446,10 @@ With prefix argument, delete and move backward." | |||
| 446 | (while (and (not (if backward (bobp) (eobp))) | 446 | (while (and (not (if backward (bobp) (eobp))) |
| 447 | (save-excursion (beginning-of-line) | 447 | (save-excursion (beginning-of-line) |
| 448 | (looking-at " *[0-9]+D"))) | 448 | (looking-at " *[0-9]+D"))) |
| 449 | (forward-line (if backward -1 1)))))) | 449 | (forward-line (if backward -1 1))) |
| 450 | ;; It looks ugly to move to the empty line at end of buffer. | ||
| 451 | (and (eobp) (not backward) | ||
| 452 | (forward-line -1))))) | ||
| 450 | 453 | ||
| 451 | (defun rmail-summary-delete-backward () | 454 | (defun rmail-summary-delete-backward () |
| 452 | "Delete this message and move to previous nondeleted one. | 455 | "Delete this message and move to previous nondeleted one. |