@@ -142,7 +142,7 @@ obfuscateLink opts text src =
142142 at' = obfuscateChar '@'
143143 (linkText, altText) =
144144 if "mailto:" `isPrefixOf` src' &&
145− text' == ("<code>" ++ drop 7 src' ++ "</code>")
145+ text' == drop 7 src'
146146 then ("e", name ++ " at " ++ domain')
147147 else ("'" ++ text' ++ "'",
148148 text' ++ " (" ++ name ++ " at " ++
@@ -369,15 +369,15 @@ inlineToHtml opts inline =
369369 else return ()
370370 return $ stringToHtml str
371371 (HtmlInline str) -> return $ primHtml str
372+ (Link [Code str] (src,tit)) | src == "mailto:" ++ str ->
373+ return $ obfuscateLink opts (stringToHtml str) src
374+ (Link txt (src,tit)) | "mailto:" `isPrefixOf` src ->
375+ do linkText <- inlineListToHtml opts txt
376+ return $ obfuscateLink opts linkText src
372377 (Link txt (src,tit)) ->
373378 do linkText <- inlineListToHtml opts txt
374− return $ if (isPrefixOf "mailto:" src)
375− then obfuscateLink opts linkText src
376− else anchor ! ([href src] ++
377− if null tit
378− then []
379− else [title tit]) $
380− linkText
379+ return $ anchor ! ([href src] ++
380+ if null tit then [] else [title tit]) $ linkText
381381 (Image txt (source,tit)) ->
382382 do alternate <- inlineListToHtml opts txt
383383 let alternate' = renderHtmlFragment alternate