@@ -433,12 +433,10 @@ definitionList = do
433433para = try $ do
434434 result <- many1 inline
435435 newline
436− st <- getState
437− if stateStrict st
438− then choice [ lookAhead blockQuote, lookAhead header,
439− (blanklines >> return Null) ]
440− else choice [ lookAhead emacsBoxQuote >> return Null,
441− (blanklines >> return Null) ]
436+ blanklines <|> do st <- getState
437+ if stateStrict st
438+ then lookAhead (blockQuote <|> header) >> return ""
439+ else lookAhead emacsBoxQuote >> return ""
442440 return $ Para $ normalizeSpaces result
443441
444442plain = many1 inline >>= return . Plain . normalizeSpaces