From 92a3826784cea982fd40d08c88fc038b779bb3dd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 30 Dec 1993 07:38:11 +0000 Subject: [PATCH] (rmail-summary-delete-forward): Move to next or prev msg among those included in the summary. --- lisp/mail/rmailsum.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 2e77e44ce5a..5f02284619c 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. -- 2.39.5