diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-12-21 18:11:48 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-12-21 18:11:48 +0000 |
| commit | f42dc896db7b5bfa415b89dc0720940c8a650549 (patch) | |
| tree | e6d7b2fa688e2e32238f69f746b16838af89cdfb /lisp/mail/supercite.el | |
| parent | 9f0b1f0976c0fbc8b85ba4c8746c7b738059bfd6 (diff) | |
| download | emacs-f42dc896db7b5bfa415b89dc0720940c8a650549.tar.gz emacs-f42dc896db7b5bfa415b89dc0720940c8a650549.tar.bz2 emacs-f42dc896db7b5bfa415b89dc0720940c8a650549.zip | |
(sc-attribs-extract-namestring): Do look for
doublequotes after finding angle brackets.
Diffstat (limited to 'lisp/mail/supercite.el')
| -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." ;; 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 |