diff options
| author | Richard M. Stallman | 1994-10-08 04:12:07 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-10-08 04:12:07 +0000 |
| commit | 4edaa169d99106f3c63b4a13ddc3dd8f574db6ea (patch) | |
| tree | 263d109512143a98d972e69c820e466d60f9bf71 | |
| parent | 8414f615f477721c29ab8bb32555a5c3a9ca61cb (diff) | |
| download | emacs-4edaa169d99106f3c63b4a13ddc3dd8f574db6ea.tar.gz emacs-4edaa169d99106f3c63b4a13ddc3dd8f574db6ea.zip | |
(rmail-delete-forward): Use rmail-select-summary.
| -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." | |||
| 1795 | (rmail-set-attribute "deleted" t) | 1795 | (rmail-set-attribute "deleted" t) |
| 1796 | (let ((del-msg rmail-current-message)) | 1796 | (let ((del-msg rmail-current-message)) |
| 1797 | (if (rmail-summary-exists) | 1797 | (if (rmail-summary-exists) |
| 1798 | (save-excursion | 1798 | (rmail-select-summary |
| 1799 | (set-buffer rmail-summary-buffer) | 1799 | (rmail-summary-mark-deleted del-msg))) |
| 1800 | (rmail-summary-mark-deleted del-msg))) | ||
| 1801 | (prog1 (rmail-next-undeleted-message (if backward -1 1)) | 1800 | (prog1 (rmail-next-undeleted-message (if backward -1 1)) |
| 1802 | (rmail-maybe-display-summary)))) | 1801 | (rmail-maybe-display-summary)))) |
| 1803 | 1802 | ||