diff options
author | Glenn Morris <rgm@gnu.org> | 2009-01-31 03:15:35 +0000 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2009-01-31 03:15:35 +0000 |
commit | ab383a615f145c03fa62cb469c3307b0df7be1fc (patch) | |
tree | b1a3f94f85312f04095aadf0888ec9ce0e8dcf89 | |
parent | 49e787c9e2d49f3bdcf8a287ea15bcbbd4a90fb9 (diff) | |
download | emacs-ab383a615f145c03fa62cb469c3307b0df7be1fc.tar.gz |
(rmail-new-summary): Don't try to summarize an empty folder.
-rw-r--r-- | lisp/ChangeLog | 3 | ||||
-rw-r--r-- | lisp/mail/rmailsum.el | 5 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bcaa546ad75..338a9eb23ef 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-01-31 Glenn Morris <rgm@gnu.org> + * 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 diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index 94cfa7b3df6..eb202721353 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -204,8 +204,9 @@ nil for FUNCTION means all messages." (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) |