mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 16:10:46 -08:00
Code Issues 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