@@ -255,7 +255,12 @@ inlineToDocbook opts LineBreak =
255255inlineToDocbook opts Space = char ' '
256256inlineToDocbook opts (Link txt (src, tit)) =
257257 if isPrefixOf "mailto:" src
258− then inTagsSimple "email" $ text (escapeStringForXML $ drop 7 src)
258+ then let src' = drop 7 src
259+ emailLink = inTagsSimple "email" $ text (escapeStringForXML $ src')
260+ in if txt == [Code src']
261+ then emailLink
262+ else inlinesToDocbook opts txt <+> char '(' <> emailLink <>
263+ char ')'
259264 else inTags False "ulink" [("url", src)] $ inlinesToDocbook opts txt
260265inlineToDocbook opts (Image alt (src, tit)) =
261266 let titleDoc = if null tit