Fix intermittent rmail-summary-delete-forward problem

* lisp/mail/rmailsum.el (rmail-summary-delete-forward):
`rmail-delete-message' may apparently clear
`rmail-current-message' sometimes, so save the message number
before deleting (bug#39612).

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index cc55451902ae62c24113f8c992c14ef1c0a40f57..521659b7eb63a0c06c128041eaaee89b704c4ccf 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -931,8 +931,8 @@ a negative argument means to delete and move backward."
                (not (and backward (bobp))))
       (rmail-summary-goto-msg)
       (with-current-buffer rmail-buffer
-       (rmail-delete-message)
-       (setq del-msg rmail-current-message))
+       (setq del-msg rmail-current-message)
+       (rmail-delete-message))
       (rmail-summary-mark-deleted del-msg)
       (while (and (not (if backward (bobp) (eobp)))
                  (save-excursion (beginning-of-line)