@@ -725,10 +725,6 @@ inlineToHtml opts inline =
725 _ -> return mempty
725 _ -> return mempty
726 | f == Format "html" -> return $ preEscapedString str
726 | f == Format "html" -> return $ preEscapedString str
727 | otherwise -> return mempty
727 | otherwise -> return mempty
728− (Link [Str str] (s,_)) | "mailto:" `isPrefixOf` s &&
729− s == escapeURI ("mailto" ++ str) ->
731− return $ obfuscateLink opts str s
732 (Link txt (s,_)) | "mailto:" `isPrefixOf` s -> do
728 (Link txt (s,_)) | "mailto:" `isPrefixOf` s -> do
733 linkText <- inlineListToHtml opts txt
729 linkText <- inlineListToHtml opts txt
734 return $ obfuscateLink opts (renderHtml linkText) s
730 return $ obfuscateLink opts (renderHtml linkText) s