Mercurial > emacs
changeset 13813:7d18fdd1acf4
(sc-attribs-extract-namestring): Do look for
doublequotes after finding angle brackets.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 21 Dec 1995 18:11:48 +0000 |
| parents | fdbace398b5e |
| children | f683f93b94e9 |
| files | lisp/mail/supercite.el |
| diffstat | 1 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/supercite.el Thu Dec 21 18:11:20 1995 +0000 +++ b/lisp/mail/supercite.el Thu Dec 21 18:11:48 1995 +0000 @@ -896,8 +896,14 @@ ;; If there is a <...> in the name, ;; treat everything before that as the full name. ;; Even if it contains parens, use the whole thing. + ;; On the other hand, we do look for quotes in the usual way. (and (string-match " *<.*>" from 0) - (sc-name-substring from 0 (match-beginning 0) 0)) + (let ((before-angles + (sc-name-substring from 0 (match-beginning 0) 0))) + (if (string-match "\".*\"" before-angles 0) + (sc-name-substring + before-angles (match-beginning 0) (match-end 0) 1) + before-angles))) (sc-name-substring from (string-match "(.*)" from 0) (match-end 0) 1) (sc-name-substring