@@ -44,7 +44,7 @@ import Text.Pandoc.Options
4444import Text.Pandoc.Shared
4545import Text.Pandoc.Writers.Shared
4646import Text.Pandoc.Templates (renderTemplate')
47−import Data.List ( intersect, intercalate )
47+import Data.List ( intersect, intercalate, isPrefixOf )
4848import Network.URI ( isURI )
4949import Control.Monad.State
5050
@@ -418,9 +418,8 @@ inlineToDokuWiki _ Space = return " "
418418inlineToDokuWiki opts (Link txt (src, _)) = do
419419 label <- inlineListToDokuWiki opts txt
420420 case txt of
421− [Str s] | escapeURI s == src -> return src
422− | "mailto:" ++ escapeURI s == src -> return $
423− "<" ++ s ++ ">"
421+ [Str s] | "mailto:" `isPrefixOf` src -> return $ "<" ++ s ++ ">"
422+ | escapeURI s == src -> return src
424423 _ -> if isURI src
425424 then return $ "[[" ++ src ++ "|" ++ label ++ "]]"
426425 else return $ "[[" ++ src' ++ "|" ++ label ++ "]]"