diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-05-31 08:08:41 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-05-31 08:08:41 +0000 |
| commit | 4c1832e932b44f3b1a30717797ce6112c26f158a (patch) | |
| tree | a78ce2d7443706fc30cd8a96d32870875a9b3c7d /lisp/mail/rmailsum.el | |
| parent | 2b1ec9736b165a278c41ab441a262ca9ae727fba (diff) | |
| download | emacs-4c1832e932b44f3b1a30717797ce6112c26f158a.tar.gz | |
(rmail-message-subject-p): Don't call
`rmail-summary-line-decoder' if the message does not have Subject:
field.
Diffstat (limited to 'lisp/mail/rmailsum.el')
| -rw-r--r-- | lisp/mail/rmailsum.el | 6 |
1 files 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) |