* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65ab83e0204da12e6d4ddb3dbeda707634427c24..b1bdd977551b73f6e4ea3c5bef1082580dd7adf1 100644 (file)
--- 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 b95651d3b69a4a3bc52e0a18556c5574039ec4f5..70d9fc653c5fd5ea19e8b36a3a7028ad84b550df 100644 (file)
--- 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)