(sc-attribs-extract-namestring): Do look for

doublequotes after finding angle brackets.

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