From 40500957d93dfce9fa852791bd56a737e577f245 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 14 Nov 2011 01:22:45 -0800 Subject: [PATCH] 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 --- lisp/ChangeLog | 3 +++ lisp/mail/rmailsum.el | 5 +---- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b1bdd977551..37b13a7acd8 100644 --- 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 70d9fc653c5..a3f722443dc 100644 --- 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) -- 2.39.2