procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Richard M. Stallman 1994-10-08 04:12:07 +00:00
parent 8414f615f4
commit 4edaa169d9
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/mail/rmail.el
View file

@ -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))))