From 4c1832e932b44f3b1a30717797ce6112c26f158a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 31 May 2001 08:08:41 +0000 Subject: [PATCH] (rmail-message-subject-p): Don't call `rmail-summary-line-decoder' if the message does not have Subject: field. --- lisp/mail/rmailsum.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el index b9578c8ec65..3964274edc3 100644 --- a/lisp/mail/rmailsum.el +++ b/lisp/mail/rmailsum.el @@ -138,8 +138,10 @@ SUBJECT is a string of regexps separated by commas." (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) -- 2.39.2