@@ -353,7 +353,7 @@ inlineToRTF (Emph lst) = do
353353 return $ "{\\i " <> contents <> "}"
354354inlineToRTF (Underline lst) = do
355355 contents <- inlinesToRTF lst
356− return $ "{\\pnul " <> contents <> "}"
356+ return $ "{\\ul " <> contents <> "}"
357357inlineToRTF (Strong lst) = do
358358 contents <- inlinesToRTF lst
359359 return $ "{\\b " <> contents <> "}"