svn: r9321

original commit: 9ca65af282
This commit is contained in:
Matthew Flatt 2008-04-15 16:46:43 +00:00
parent 5117b92673
commit 25639e8fa5

View File

@ -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)
]} ]}
]} ]}