Mercurial > emacs
comparison lisp/mail/rmailsum.el @ 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 | cde03222210e |
| children | f0264fb75509 |
comparison
equal
deleted
inserted
replaced
| 9544:1f8c357797a2 | 9545:0773b7048206 |
|---|---|
| 444 (pop-to-buffer rmail-summary-buffer) | 444 (pop-to-buffer rmail-summary-buffer) |
| 445 (rmail-summary-mark-deleted del-msg) | 445 (rmail-summary-mark-deleted del-msg) |
| 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. |
| 453 Deleted messages stay in the file until the \\[rmail-expunge] command is given." | 456 Deleted messages stay in the file until the \\[rmail-expunge] command is given." |
| 454 (interactive) | 457 (interactive) |