diff options
author | Richard M. Stallman <[email protected]> | 1993-12-30 07:38:11 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-12-30 07:38:11 +0000 |
commit | 92a3826784cea982fd40d08c88fc038b779bb3dd (patch) | |
tree | e744b91e93ac0f444f72853b12c5fb0460c94410 /lisp/mail | |
parent | 2cbaf88681b857aac11af4a654eb256b52a2a285 (diff) |
(rmail-summary-delete-forward): Move to next or prev msg
among those included in the summary.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmailsum.el | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 2e77e44ce5..5f02284619 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -403,8 +403,13 @@ With prefix argument, delete and move backward." (let (end) (rmail-summary-goto-msg) (pop-to-buffer rmail-buffer) - (rmail-delete-forward backward) - (pop-to-buffer rmail-summary-buffer))) + (rmail-delete-message) + (let ((del-msg rmail-current-message)) + (pop-to-buffer rmail-summary-buffer) + (rmail-summary-mark-deleted del-msg) + (while (and (not (if backward (bobp) (eobp))) + (save-excursion (beginning-of-line) (looking-at " [0-9]+D"))) + (forward-line (if backward -1 1)))))) (defun rmail-summary-delete-backward () "Delete this message and move to previous nondeleted one. |