parent
5117b92673
commit
25639e8fa5
|
@ -199,8 +199,12 @@ should be returned:
|
||||||
(extract-addresses "John Doe <doe@localhost>" 'all)
|
(extract-addresses "John Doe <doe@localhost>" 'all)
|
||||||
(extract-addresses "doe@localhost (Johnny Doe)" 'all)
|
(extract-addresses "doe@localhost (Johnny Doe)" 'all)
|
||||||
(extract-addresses "doe@localhost" 'all)
|
(extract-addresses "doe@localhost" 'all)
|
||||||
(extract-addresses " \"Doe, John\" <doe@localhost>, jane"
|
(define r
|
||||||
'all)
|
(extract-addresses " \"John\" <doe@localhost>, jane"
|
||||||
|
'all))
|
||||||
|
(length r)
|
||||||
|
(car r)
|
||||||
|
(cadr r)
|
||||||
]}
|
]}
|
||||||
|
|
||||||
]}
|
]}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user