rmail-summary fix.

* lisp/mail/rmailsum.el (rmail-summary): Remove movement to beginning
of message - not necessary, and causes problems.

I believe the call to rmail-summary-beginning-of-message was only
thought to be necessary due to a couple of bugs in rmail-new-summary
that are hopefully fixed now (`mesg' not being set,
rmail-summary-buffer's buffer locality not being considered).

Fixes: debbugs:9831

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b1bdd977551b73f6e4ea3c5bef1082580dd7adf1..37b13a7acd8ebf053dc4e85db6422e091b474c52 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,9 @@
        (executable-make-buffer-file-executable-if-script-p):
        Handle file-modes returning nil.
 
+       * mail/rmailsum.el (rmail-summary): Remove movement to beginning of
+       message - not necessary, and causes problems.  (Bug#9831)
+
        * mail/rmailsum.el (rmail-new-summary): Preserve message number.
 
        * mail/rmail.el (rmail-no-mail-p): Remove mode-line N/M indicator.

diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 70d9fc653c5fd5ea19e8b36a3a7028ad84b550df..a3f722443dc4922fe3fa0a1e374f43e2689dde38 100644 (file)
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -268,10 +268,7 @@ Setting this option to nil might speed up the generation of summaries."
 (defun rmail-summary ()
   "Display a summary of all messages, one line per message."
   (interactive)
-  (rmail-new-summary "All" '(rmail-summary) nil)
-  (unless (or (zerop (buffer-size))            ; empty summary
-             (get-buffer-window rmail-buffer))
-    (rmail-summary-beginning-of-message)))
+  (rmail-new-summary "All" '(rmail-summary) nil))
 
 ;;;###autoload
 (defun rmail-summary-by-labels (labels)