master 15a6710 1/2: Fix intermittent rmail-summary-delete-forward problem

[Lars Ingebrigtsen]

branch: master
commit 15a67102dd9581b6c53eb2e168c1387e9b2ba796
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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).
---
 lisp/mail/rmailsum.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index cc55451..521659b 100644
--- 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)