emacs-diffs
[Top][All Lists]
Advanced

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

[Emacs-diffs] emacs/lisp ChangeLog mail/rmailsum.el


From: Glenn Morris
Subject: [Emacs-diffs] emacs/lisp ChangeLog mail/rmailsum.el
Date: Sat, 31 Jan 2009 03:15:39 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/01/31 03:15:38

Modified files:
        lisp           : ChangeLog 
        lisp/mail      : rmailsum.el 

Log message:
        (rmail-new-summary): Don't try to summarize an empty folder.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15223&r2=1.15224
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmailsum.el?cvsroot=emacs&r1=1.163&r2=1.164

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15223
retrieving revision 1.15224
diff -u -b -r1.15223 -r1.15224
--- ChangeLog   31 Jan 2009 02:53:31 -0000      1.15223
+++ ChangeLog   31 Jan 2009 03:15:35 -0000      1.15224
@@ -1,5 +1,8 @@
 2009-01-31  Glenn Morris  <address@hidden>
 
+       * mail/rmailsum.el (rmail-new-summary): Don't try to summarize an empty
+       folder.
+
        * mail/rmail.el (rmail-msg-is-pruned): New function.
        (rmail-toggle-header): Doc fix.  Use rmail-msg-is-pruned.
        (rmail-reply): Set up to yank from the decoded message rather than the

Index: mail/rmailsum.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmailsum.el,v
retrieving revision 1.163
retrieving revision 1.164
diff -u -b -r1.163 -r1.164
--- mail/rmailsum.el    30 Jan 2009 07:20:58 -0000      1.163
+++ mail/rmailsum.el    31 Jan 2009 03:15:38 -0000      1.164
@@ -204,8 +204,9 @@
     (if (eq major-mode 'rmail-summary-mode)
        (setq was-in-summary t))
     (with-current-buffer rmail-buffer
-      (setq mesg rmail-current-message
-           rmail-summary-buffer (rmail-new-summary-1 desc redo func args)))
+      (if (zerop (setq mesg rmail-current-message))
+         (error "No messages to summarize"))
+      (setq rmail-summary-buffer (rmail-new-summary-1 desc redo func args)))
     ;; Now display the summary buffer and go to the right place in it.
     (unless was-in-summary
       (if (and (one-window-p)




reply via email to

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