diff options
| -rw-r--r-- | lisp/mail/supercite.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index 5c5d7efd0f7..d0ff648233b 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el | |||
| @@ -896,8 +896,14 @@ This should be the author's full name minus an optional title." | |||
| 896 | ;; If there is a <...> in the name, | 896 | ;; If there is a <...> in the name, |
| 897 | ;; treat everything before that as the full name. | 897 | ;; treat everything before that as the full name. |
| 898 | ;; Even if it contains parens, use the whole thing. | 898 | ;; Even if it contains parens, use the whole thing. |
| 899 | ;; On the other hand, we do look for quotes in the usual way. | ||
| 899 | (and (string-match " *<.*>" from 0) | 900 | (and (string-match " *<.*>" from 0) |
| 900 | (sc-name-substring from 0 (match-beginning 0) 0)) | 901 | (let ((before-angles |
| 902 | (sc-name-substring from 0 (match-beginning 0) 0))) | ||
| 903 | (if (string-match "\".*\"" before-angles 0) | ||
| 904 | (sc-name-substring | ||
| 905 | before-angles (match-beginning 0) (match-end 0) 1) | ||
| 906 | before-angles))) | ||
| 901 | (sc-name-substring | 907 | (sc-name-substring |
| 902 | from (string-match "(.*)" from 0) (match-end 0) 1) | 908 | from (string-match "(.*)" from 0) (match-end 0) 1) |
| 903 | (sc-name-substring | 909 | (sc-name-substring |