diff options
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. |