Mercurial > emacs
diff lisp/mail/rmailsum.el @ 37955:e1400bd914f0
(rmail-message-subject-p): Don't call
`rmail-summary-line-decoder' if the message does not have Subject:
field.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Thu, 31 May 2001 08:08:41 +0000 |
parents | 17db314acfc2 |
children | 253f761ad37b |
line wrap: on
line diff
--- a/lisp/mail/rmailsum.el Thu May 31 07:59:18 2001 +0000 +++ b/lisp/mail/rmailsum.el Thu May 31 08:08:41 2001 +0000 @@ -138,8 +138,10 @@ (progn (search-forward (if whole-message "\^_" "\n\n")) (point))) (goto-char (point-min)) (if whole-message (re-search-forward subject nil t) - (string-match subject (or (funcall rmail-summary-line-decoder - (mail-fetch-field "Subject")) "")) ))) + (string-match subject (let ((subj (mail-fetch-field "Subject"))) + (if subj + (funcall rmail-summary-line-decoder subj) + "")))))) ;;;###autoload (defun rmail-summary-by-senders (senders)