* mail/rmailsum.el (rmail-new-summary): Preserve message number.

Nothing was setting the local variable `mesg'.
Eg when looking at message 10, pressing h to get a summary would
send you to message 1.

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65ab83e0204..b1bdd977551 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
         (executable-make-buffer-file-executable-if-script-p):
         Handle file-modes returning nil.
 
+        * mail/rmailsum.el (rmail-new-summary): Preserve message number.
+
         * mail/rmail.el (rmail-no-mail-p): Remove mode-line N/M indicator.
 
         * mail/rmailsum.el (rmail-summary, rmail-new-summary)
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index b95651d3b69..70d9fc653c5 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -411,7 +411,8 @@ nil for FUNCTION means all messages."
     (with-current-buffer rmail-buffer
       (setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args)
             ;; r-s-b is buffer-local.
-            sumbuf rmail-summary-buffer))
+            sumbuf rmail-summary-buffer
+            mesg rmail-current-message))
     ;; Now display the summary buffer and go to the right place in it.
     (unless was-in-summary
       (if (and (one-window-p)