Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 37954:f77bc295bba2 | 37955:e1400bd914f0 |
|---|---|
| 136 (narrow-to-region | 136 (narrow-to-region |
| 137 (point) | 137 (point) |
| 138 (progn (search-forward (if whole-message "\^_" "\n\n")) (point))) | 138 (progn (search-forward (if whole-message "\^_" "\n\n")) (point))) |
| 139 (goto-char (point-min)) | 139 (goto-char (point-min)) |
| 140 (if whole-message (re-search-forward subject nil t) | 140 (if whole-message (re-search-forward subject nil t) |
| 141 (string-match subject (or (funcall rmail-summary-line-decoder | 141 (string-match subject (let ((subj (mail-fetch-field "Subject"))) |
| 142 (mail-fetch-field "Subject")) "")) ))) | 142 (if subj |
| 143 (funcall rmail-summary-line-decoder subj) | |
| 144 "")))))) | |
| 143 | 145 |
| 144 ;;;###autoload | 146 ;;;###autoload |
| 145 (defun rmail-summary-by-senders (senders) | 147 (defun rmail-summary-by-senders (senders) |
| 146 "Display a summary of all messages with the given SENDERS. | 148 "Display a summary of all messages with the given SENDERS. |
| 147 SENDERS is a string of names separated by commas." | 149 SENDERS is a string of names separated by commas." |