# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 819569508 0
# Node ID 7d18fdd1acf49b8eddb0bf30d379404454e381e3
# Parent  fdbace398b5ecc810c97693f738281c781e535ba
(sc-attribs-extract-namestring): Do look for
doublequotes after finding angle brackets.

diff -r fdbace398b5e -r 7d18fdd1acf4 lisp/mail/supercite.el
--- 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