diff options
| author | Richard M. Stallman | 1997-08-12 05:49:26 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-08-12 05:49:26 +0000 |
| commit | 8148a3adf7134015475cd1b33747dc2ae5f4a84e (patch) | |
| tree | abee38901ea14632bf0b27280ee61a26c6a91792 | |
| parent | 7c96c058a6c1bbfc516d6f49fefd714f5bdab754 (diff) | |
| download | emacs-8148a3adf7134015475cd1b33747dc2ae5f4a84e.tar.gz emacs-8148a3adf7134015475cd1b33747dc2ae5f4a84e.zip | |
(rmail-make-in-reply-to-field): Don't cause an
error if the `From:' line has no valid email addresses.
| -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. |