@@ -68,7 +68,7 @@ setextHChars = "=-"
6868
6969-- treat these as potentially non-text when parsing inline:
7070specialChars :: [Char]
71−specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221"
71+specialChars = "\\[]*_~`<>$!^-.&'\"\8216\8217\8220\8221;"
7272
7373--
7474-- auxiliary functions
@@ -136,7 +136,7 @@ authorsLine :: GenParser Char ParserState [[Inline]]
136136authorsLine = try $ do
137137 char '%'
138138 skipSpaces
139− authors <- sepEndBy (many1 (notFollowedBy (oneOf ",;\n") >> inline)) (oneOf ",;")
139+ authors <- sepEndBy (many1 (notFollowedBy (oneOf ";\n") >> inline)) (oneOf ";")
140140 newline
141141 return $ map normalizeSpaces authors
142142