diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-10-08 04:12:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-10-08 04:12:07 +0000 |
| commit | 37e8758a386c2bd17d871daa18035995e98979c8 (patch) | |
| tree | 9ea196e3bb8fbba7db3cd765cb001c648445918a /lisp | |
| parent | 3f7f6198a358ad9ce74bbd9278421c96de489662 (diff) | |
| download | emacs-37e8758a386c2bd17d871daa18035995e98979c8.tar.gz | |
(rmail-delete-forward): Use rmail-select-summary.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mail/rmail.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 0d5cd1c7608..0675d517f36 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)))) |