diff options
| -rw-r--r-- | lisp/mail/rmail.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2b2e8cac3fe..2b4c8c6553a 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -2527,12 +2527,14 @@ which is an element of rmail-msgref-vector." | |||
| 2527 | (require 'rfc822) | 2527 | (require 'rfc822) |
| 2528 | (let ((tem (car (rfc822-addresses from)))) | 2528 | (let ((tem (car (rfc822-addresses from)))) |
| 2529 | (if message-id | 2529 | (if message-id |
| 2530 | (if (string-match | 2530 | (if (or (not tem) |
| 2531 | (regexp-quote (if (string-match "@[^@]*\\'" tem) | 2531 | (string-match |
| 2532 | (substring tem 0 (match-beginning 0)) | 2532 | (regexp-quote (if (string-match "@[^@]*\\'" tem) |
| 2533 | tem)) | 2533 | (substring tem 0 |
| 2534 | message-id) | 2534 | (match-beginning 0)) |
| 2535 | ;; Message-ID is sufficiently informative | 2535 | tem)) |
| 2536 | message-id)) | ||
| 2537 | ;; missing From, or Message-ID is sufficiently informative | ||
| 2536 | message-id | 2538 | message-id |
| 2537 | (concat message-id " (" tem ")")) | 2539 | (concat message-id " (" tem ")")) |
| 2538 | ;; Copy TEM, discarding text properties. | 2540 | ;; Copy TEM, discarding text properties. |