@@ -377,7 +377,7 @@ inlineToMuse (Link _ txt (src, _)) =
377377 return $ "[[" <> text (escapeLink x) <> "]]"
378378 _ -> do contents <- inlineListToMuse txt
379379 return $ "[[" <> text (escapeLink src) <> "][" <> contents <> "]]"
380− where escapeLink lnk = escapeURI (if isImageUrl lnk then "URL:" ++ lnk else lnk)
380+ where escapeLink lnk = if isImageUrl lnk then "URL:" ++ lnk else lnk
381381 -- Taken from muse-image-regexp defined in Emacs Muse file lisp/muse-regexps.el
382382 imageExtensions = [".eps", ".gif", ".jpg", ".jpeg", ".pbm", ".png", ".tiff", ".xbm", ".xpm"]
383383 isImageUrl = (`elem` imageExtensions) . takeExtension