@@ -644,9 +644,9 @@ inlineToMarkdown opts (Link txt (src, tit)) = do
644644 then empty
645645 else text $ " \"" ++ tit ++ "\""
646646 let srcSuffix = if isPrefixOf "mailto:" src then drop 7 src else src
647− let useAuto = case (tit,txt) of
648− ("", [Str s]) | escapeURI s == srcSuffix -> True
649− _ -> False
647+ let useAuto = case txt of
648+ [Str s] | escapeURI s == srcSuffix -> True
649+ _ -> False
650650 let useRefLinks = writerReferenceLinks opts && not useAuto
651651 ref <- if useRefLinks then getReference txt (src, tit) else return []
652652 reftext <- inlineListToMarkdown opts ref