@@ -380,7 +380,7 @@ emailAddress = try $ liftA2 toResult mailbox (char '@' *> domain)
380 notFollowedBy space)
380 notFollowedBy space)
381 emailWord = many1 $ satisfy isEmailChar
381 emailWord = many1 $ satisfy isEmailChar
382 isEmailChar c = isAlphaNum c || isEmailPunct c
382 isEmailChar c = isAlphaNum c || isEmailPunct c
383− isEmailPunct c = c `elem` "!\"#$%&'*+-/=?^_{|}~"
383+ isEmailPunct c = c `elem` "!\"#$%&'*+-/=?^_{|}~;"
384 -- note: sepBy1 from parsec consumes input when sep
384 -- note: sepBy1 from parsec consumes input when sep
385 -- succeeds and p fails, so we use this variant here.
385 -- succeeds and p fails, so we use this variant here.
386 sepby1 p sep = liftA2 (:) p (many (try $ sep >> p))
386 sepby1 p sep = liftA2 (:) p (many (try $ sep >> p))