From cdbea8cae35abc50bf9692afcd543b3677dcd3b7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 15 Oct 1994 22:24:10 +0000 Subject: [PATCH] (rmail-summary-delete-forward): Don't move fwd to eob. --- lisp/mail/rmailsum.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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. -- 2.39.5