From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 15 Oct 1994 22:24:10 +0000 (+0000)
Subject: (rmail-summary-delete-forward): Don't move fwd to eob.
X-Git-Tag: emacs-19.34~6309
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cdbea8cae35abc50bf9692afcd543b3677dcd3b7;p=emacs.git

(rmail-summary-delete-forward): Don't move fwd to eob.
---

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.