martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
doublequotes after finding angle brackets.
This commit is contained in:
Karl Heuer
1995-12-21 18:11:48 +00:00
parent 9f0b1f0976
commit f42dc896db
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/supercite.el
View File

@@ -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