diff options
author | Richard M. Stallman <rms@gnu.org> | 1994-10-15 22:24:10 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1994-10-15 22:24:10 +0000 |
commit | cdbea8cae35abc50bf9692afcd543b3677dcd3b7 (patch) | |
tree | d301d5ad5077d5764d4117dab8d49abc67d7cf0b /lisp | |
parent | 78c3981da6ef4df27853f619e7c69e01f435ac77 (diff) | |
download | emacs-cdbea8cae35abc50bf9692afcd543b3677dcd3b7.tar.gz |
(rmail-summary-delete-forward): Don't move fwd to eob.
Diffstat (limited to 'lisp')
-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." (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. |