@@ -567,8 +567,14 @@ inlineToOpenXML opts (Note bs) = do
567 let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : ils) : xs
567 let insertNoteRef (Plain ils : xs) = Plain (notemarkerXml : ils) : xs
568 insertNoteRef (Para ils : xs) = Para (notemarkerXml : ils) : xs
568 insertNoteRef (Para ils : xs) = Para (notemarkerXml : ils) : xs
569 insertNoteRef xs = Para [notemarkerXml] : xs
569 insertNoteRef xs = Para [notemarkerXml] : xs
570+ oldListLevel <- gets stListLevel
571+ oldParaProperties <- gets stParaProperties
572+ oldTextProperties <- gets stTextProperties
573+ modify $ \st -> st{ stListLevel = -1, stParaProperties = [], stTextProperties = [] }
570 contents <- withParaProp (pStyle "FootnoteText") $ blocksToOpenXML opts
574 contents <- withParaProp (pStyle "FootnoteText") $ blocksToOpenXML opts
571 $ insertNoteRef bs
575 $ insertNoteRef bs
576+ modify $ \st -> st{ stListLevel = oldListLevel, stParaProperties = oldParaProperties,
577+ stTextProperties = oldTextProperties }
572 let newnote = mknode "w:footnote" [("w:id",show notenum)] $ contents
578 let newnote = mknode "w:footnote" [("w:id",show notenum)] $ contents
573 modify $ \s -> s{ stFootnotes = newnote : notes }
579 modify $ \s -> s{ stFootnotes = newnote : notes }
574 return [ mknode "w:r" []
580 return [ mknode "w:r" []