diff options
| author | Glenn Morris | 2011-11-14 01:22:45 -0800 |
|---|---|---|
| committer | Glenn Morris | 2011-11-14 01:22:45 -0800 |
| commit | 40500957d93dfce9fa852791bd56a737e577f245 (patch) | |
| tree | 3547d64689fcf9f625738ab106b90a09e804257e | |
| parent | 071c2340fd8a6018df4a370ada5429a7d47b7c9f (diff) | |
| download | emacs-40500957d93dfce9fa852791bd56a737e577f245.tar.gz emacs-40500957d93dfce9fa852791bd56a737e577f245.zip | |
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
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | 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 @@ | |||
| 4 | (executable-make-buffer-file-executable-if-script-p): | 4 | (executable-make-buffer-file-executable-if-script-p): |
| 5 | Handle file-modes returning nil. | 5 | Handle file-modes returning nil. |
| 6 | 6 | ||
| 7 | * mail/rmailsum.el (rmail-summary): Remove movement to beginning of | ||
| 8 | message - not necessary, and causes problems. (Bug#9831) | ||
| 9 | |||
| 7 | * mail/rmailsum.el (rmail-new-summary): Preserve message number. | 10 | * mail/rmailsum.el (rmail-new-summary): Preserve message number. |
| 8 | 11 | ||
| 9 | * mail/rmail.el (rmail-no-mail-p): Remove mode-line N/M indicator. | 12 | * 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." | |||
| 268 | (defun rmail-summary () | 268 | (defun rmail-summary () |
| 269 | "Display a summary of all messages, one line per message." | 269 | "Display a summary of all messages, one line per message." |
| 270 | (interactive) | 270 | (interactive) |
| 271 | (rmail-new-summary "All" '(rmail-summary) nil) | 271 | (rmail-new-summary "All" '(rmail-summary) nil)) |
| 272 | (unless (or (zerop (buffer-size)) ; empty summary | ||
| 273 | (get-buffer-window rmail-buffer)) | ||
| 274 | (rmail-summary-beginning-of-message))) | ||
| 275 | 272 | ||
| 276 | ;;;###autoload | 273 | ;;;###autoload |
| 277 | (defun rmail-summary-by-labels (labels) | 274 | (defun rmail-summary-by-labels (labels) |