@@ -325,7 +325,6 @@ conditionalEscapeString :: Bool -> String -> String
325325conditionalEscapeString isInsideLinkDescription s =
326326 if any (`elem` ("#*<=>|" :: String)) s ||
327327 "::" `isInfixOf` s ||
328− "----" `isInfixOf` s ||
329328 "~~" `isInfixOf` s ||
330329 "[[" `isInfixOf` s ||
331330 ("]" `isInfixOf` s && isInsideLinkDescription) ||
@@ -395,12 +394,18 @@ urlEscapeBrackets (']':xs) = '%':'5':'D':urlEscapeBrackets xs
395394urlEscapeBrackets (x:xs) = x:urlEscapeBrackets xs
396395urlEscapeBrackets [] = []
397396
397+isHorizontalRule :: String -> Bool
398+isHorizontalRule s =
399+ ((length xs) >= 4) && null ys
400+ where (xs, ys) = span (== '-') s
401+
398402fixOrEscape :: Bool -> Inline -> Bool
399403fixOrEscape sp (Str "-") = sp
400404fixOrEscape sp (Str ";") = not sp
401−fixOrEscape sp (Str s) = sp && (startsWithMarker isDigit s ||
405+fixOrEscape sp (Str s) = (sp && (startsWithMarker isDigit s ||
402406 startsWithMarker isAsciiLower s ||
403− startsWithMarker isAsciiUpper s)
407+ startsWithMarker isAsciiUpper s))
408+ || isHorizontalRule s
404409fixOrEscape _ Space = True
405410fixOrEscape _ SoftBreak = True
406411fixOrEscape _ _ = False