@@ -475,10 +475,11 @@ blockToHtml opts (BlockQuote blocks) =
476 contents <- blockListToHtml opts blocks
476 contents <- blockListToHtml opts blocks
477 return $ H.blockquote $ nl opts >> contents >> nl opts
477 return $ H.blockquote $ nl opts >> contents >> nl opts
478−blockToHtml opts (Header level (_,_,_) lst) = do
478+blockToHtml opts (Header level (_,classes,_) lst) = do
479 contents <- inlineListToHtml opts lst
479 contents <- inlineListToHtml opts lst
480 secnum <- liftM stSecNum get
480 secnum <- liftM stSecNum get
481 let contents' = if writerNumberSections opts && not (null secnum)
481 let contents' = if writerNumberSections opts && not (null secnum)
482+ && "unnumbered" `notElem` classes
482 then (H.span ! A.class_ "header-section-number" $ toHtml
483 then (H.span ! A.class_ "header-section-number" $ toHtml
483 $ showSecNum secnum) >> strToHtml " " >> contents
484 $ showSecNum secnum) >> strToHtml " " >> contents
484 else contents
485 else contents