Commit 4edaa169 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(rmail-delete-forward): Use rmail-select-summary.

parent 8414f615
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment