Mercurial > hg > xemacs-beta

diff lisp/rmail/rmailsum.el @ 86:364816949b59 r20-0b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b93
author cvs
date Mon, 13 Aug 2007 09:09:02 +0200
parents 0293115a14e9
children
line wrap: on
line diff
--- a/lisp/rmail/rmailsum.el	Mon Aug 13 09:08:31 2007 +0200
+++ b/lisp/rmail/rmailsum.el	Mon Aug 13 09:09:02 2007 +0200
@@ -141,6 +141,13 @@
 For each message, FUNCTION is applied to the message number and ARGS...
 and if the result is non-nil, that message is included.
 nil for FUNCTION means all messages."
+  (if (eq major-mode 'mime/viewer-mode)
+      (let ((buf mime::preview/article-buffer)
+	    (pbuf (current-buffer))
+	    )
+	(switch-to-buffer buf)
+	(bury-buffer pbuf)
+	))
   (message "Computing summary lines...")
   (let (sumbuf mesg was-in-summary)
     (save-excursion