@@ -733,9 +733,11 @@ listLine = try $ do
733733 many (spaceChar)
734734 listStart)
735735 notFollowedBy' $ htmlTag (~== TagClose "div")
736− chunks <- manyTill (liftM snd (htmlTag isCommentTag)
737− <|> many1 (satisfy (/='\n'))
738− <|> count 1 anyChar) newline
736+ chunks <- manyTill
737+ ( many1 (satisfy $ \c -> c /= '\n' && c /= '<')
738+ <|> liftM snd (htmlTag isCommentTag)
739+ <|> count 1 anyChar
740+ ) newline
739741 return $ concat chunks
740742
741743-- parse raw text for one list item, excluding start marker and continuations