@@ -114,7 +114,7 @@ List of all DocBook tags, with [x] indicating implemented,
114114[ ] destructorsynopsis - A syntax summary for a destructor
115115[ ] edition - The name or number of an edition of a document
116116[ ] editor - The name of the editor of a document
117−[ ] email - An email address
117+[x] email - An email address
118118[x] emphasis - Emphasized text
119119[ ] entry - A cell in a table
120120[ ] entrytbl - A subtable appearing in place of an Entry in a table
@@ -675,6 +675,8 @@ parseInline (Elem e) =
675675 "constant" -> return $ codeWith ("",["constant"],[]) $ strContent e
676676 "userinput" -> return $ codeWith ("",["userinput"],[]) $ strContent e
677677 "varargs" -> return $ str "(…)"
678+ "email" -> return $ link ("mailto:" ++ strContent e) ""
679+ $ code $ strContent e
678680 "ulink" -> link (attrValue "url" e) "" <$> innerInlines
679681 "link" -> case findAttr (QName "href" (Just "http://www.w3.org/1999/xlink") Nothing) e of
680682 Just href -> link href "" <$> innerInlines