Mercurial > emacs

changeset 37955:e1400bd914f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f77bc295bba2
children b59847354241
files lisp/mail/rmailsum.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
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)