diff --git a/src/MdToHTML.hs b/src/MdToHTML.hs
index 20ac344..5e893e1 100644
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@@ -212,6 +212,7 @@ parsePara = do
 parseQuotedLine :: ReadP String
 parseQuotedLine = do
   char '>'
+  greedyParse (char ' ' +++ char '\t')
   restOfLine <- munch (/= '\n')
   Text.ParserCombinators.ReadP.optional (char '\n') >> return ""
   return restOfLine