# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 991296521 0
# Node ID e1400bd914f0b20358f285031b04995ca8d342c1
# Parent  f77bc295bba23647e6cd45c3660830149e336797
(rmail-message-subject-p): Don't call
`rmail-summary-line-decoder' if the message does not have Subject:
field.

diff -r f77bc295bba2 -r e1400bd914f0 lisp/mail/rmailsum.el
--- 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)