emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r106368: rmail-summary fix.


From: Glenn Morris
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r106368: rmail-summary fix.
Date: Mon, 14 Nov 2011 01:22:45 -0800
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 106368
fixes bug(s): http://debbugs.gnu.org/9831
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2011-11-14 01:22:45 -0800
message:
  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).
modified:
  lisp/ChangeLog
  lisp/mail/rmailsum.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-11-14 09:09:03 +0000
+++ b/lisp/ChangeLog    2011-11-14 09:22:45 +0000
@@ -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.

=== modified file 'lisp/mail/rmailsum.el'
--- a/lisp/mail/rmailsum.el     2011-11-14 09:09:03 +0000
+++ b/lisp/mail/rmailsum.el     2011-11-14 09:22:45 +0000
@@ -268,10 +268,7 @@
 (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)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]