@@ -419,6 +419,8 @@ inlineToDokuWiki opts (Link txt (src, _)) = do
419 label <- inlineListToDokuWiki opts txt
419 label <- inlineListToDokuWiki opts txt
420 case txt of
420 case txt of
421 [Str s] | escapeURI s == src -> return src
421 [Str s] | escapeURI s == src -> return src
422+ | "mailto:" ++ escapeURI s == src -> return $
422 _ -> if isURI src
424 _ -> if isURI src
423 then return $ "[[" ++ src ++ "|" ++ label ++ "]]"
425 then return $ "[[" ++ src ++ "|" ++ label ++ "]]"
424 else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"
426 else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"