@@ -1219,12 +1219,12 @@ inlineToLaTeX (Link _ txt ('#':ident, _)) = do
12191219 return $ text "\\protect\\hyperlink" <> braces (text lab) <> braces contents
12201220inlineToLaTeX (Link _ txt (src, _)) =
12211221 case txt of
1222− [Str x] | escapeURI x == src -> -- autolink
1222+ [Str x] | x == unEscapeString src -> -- autolink
12231223 do modify $ \s -> s{ stUrl = True }
12241224 src' <- stringToLaTeX URLString (escapeURI src)
12251225 return $ text $ "\\url{" ++ src' ++ "}"
12261226 [Str x] | Just rest <- stripPrefix "mailto:" src,
1227− escapeURI x == rest -> -- email autolink
1227+ x == unEscapeString rest -> -- email autolink
12281228 do modify $ \s -> s{ stUrl = True }
12291229 src' <- stringToLaTeX URLString (escapeURI src)
12301230 contents <- inlineListToLaTeX txt