From 4edaa169d99106f3c63b4a13ddc3dd8f574db6ea Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Oct 1994 04:12:07 +0000 Subject: [PATCH] (rmail-delete-forward): Use rmail-select-summary. --- lisp/mail/rmail.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 0d5cd1c760..0675d517f3 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1795,9 +1795,8 @@ Returns t if a new message is displayed after the delete, or nil otherwise." (rmail-set-attribute "deleted" t) (let ((del-msg rmail-current-message)) (if (rmail-summary-exists) - (save-excursion - (set-buffer rmail-summary-buffer) - (rmail-summary-mark-deleted del-msg))) + (rmail-select-summary + (rmail-summary-mark-deleted del-msg))) (prog1 (rmail-next-undeleted-message (if backward -1 1)) (rmail-maybe-display-summary)))) -- 2.39.2