From f42dc896db7b5bfa415b89dc0720940c8a650549 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Thu, 21 Dec 1995 18:11:48 +0000 Subject: [PATCH] (sc-attribs-extract-namestring): Do look for doublequotes after finding angle brackets. --- lisp/mail/supercite.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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 -- 2.39.2