p_section :: Parser ByteString
qp_section = do
  ls <- many (transport_padding1 <|> ptextstring)
  l <- option "" ptextstring
  return $ S.concat ls <> l

qp_section :: Parser ByteString
qp_section = do
  ls <- many (transport_padding1 <|> ptextstring)
  l <- option "" ptextstring
  return $ S.concat ls <> l
qp_section = do
  ls <- many (transport_padding1 <|> ptextstring)
  l <- option "" ptextstring
  return $ S.concat ls <> l