Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
85:c661705957e0 86:364816949b59
139 "Create a summary of selected messages. 139 "Create a summary of selected messages.
140 DESCRIPTION makes part of the mode line of the summary buffer. 140 DESCRIPTION makes part of the mode line of the summary buffer.
141 For each message, FUNCTION is applied to the message number and ARGS... 141 For each message, FUNCTION is applied to the message number and ARGS...
142 and if the result is non-nil, that message is included. 142 and if the result is non-nil, that message is included.
143 nil for FUNCTION means all messages." 143 nil for FUNCTION means all messages."
144 (if (eq major-mode 'mime/viewer-mode)
145 (let ((buf mime::preview/article-buffer)
146 (pbuf (current-buffer))
147 )
148 (switch-to-buffer buf)
149 (bury-buffer pbuf)
150 ))
144 (message "Computing summary lines...") 151 (message "Computing summary lines...")
145 (let (sumbuf mesg was-in-summary) 152 (let (sumbuf mesg was-in-summary)
146 (save-excursion 153 (save-excursion
147 ;; Go to the Rmail buffer. 154 ;; Go to the Rmail buffer.
148 (if (eq major-mode 'rmail-summary-mode) 155 (if (eq major-mode 'rmail-summary-mode)