@@ -142,7 +142,7 @@ obfuscateLink opts text src =
142 at' = obfuscateChar '@'
142 at' = obfuscateChar '@'
143 (linkText, altText) =
143 (linkText, altText) =
144 if "mailto:" `isPrefixOf` src' &&
144 if "mailto:" `isPrefixOf` src' &&
145− text' == ("<code>" ++ drop 7 src' ++ "</code>")
145+ text' == drop 7 src'
146 then ("e", name ++ " at " ++ domain')
146 then ("e", name ++ " at " ++ domain')
147 else ("'" ++ text' ++ "'",
147 else ("'" ++ text' ++ "'",
148 text' ++ " (" ++ name ++ " at " ++
148 text' ++ " (" ++ name ++ " at " ++
@@ -369,15 +369,15 @@ inlineToHtml opts inline =
369 else return ()
369 else return ()
370 return $ stringToHtml str
370 return $ stringToHtml str
371 (HtmlInline str) -> return $ primHtml str
371 (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
372 (Link txt (src,tit)) ->
377 (Link txt (src,tit)) ->
373 do linkText <- inlineListToHtml opts txt
378 do linkText <- inlineListToHtml opts txt
374− return $ if (isPrefixOf "mailto:" src)
375− then obfuscateLink opts linkText src
376− else anchor ! ([href src] ++
379+ return $ anchor ! ([href src] ++
379− else [title tit]) $
380+ if null tit then [] else [title tit]) $ linkText
381 (Image txt (source,tit)) ->
381 (Image txt (source,tit)) ->
382 do alternate <- inlineListToHtml opts txt
382 do alternate <- inlineListToHtml opts txt
383 let alternate' = renderHtmlFragment alternate
383 let alternate' = renderHtmlFragment alternate