From 1a4d60e4ed7411e23de74363c963301449968530 Mon Sep 17 00:00:00 2001 From: tysonzero Date: Mon, 18 May 2020 23:17:33 -0400 Subject: [PATCH] Handle nested multipart messages --- src/Network/Mail/Parse/Parsers/Message.hs | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/src/Network/Mail/Parse/Parsers/Message.hs b/src/Network/Mail/Parse/Parsers/Message.hs index 6d82d85..0c34707 100644 --- a/src/Network/Mail/Parse/Parsers/Message.hs +++ b/src/Network/Mail/Parse/Parsers/Message.hs @@ -61,11 +61,7 @@ messageParser headersIn helperHeadersIn = do body <- takeByteString let parsedHeaders = map parseHeader headers - - -- Parse MIME if the message is in a MIME format - let parsedBody = if isJust $ find isMIME headers - then parseMIME (headers ++ helperHeaders) body - else Right [TextBody $ decodeTextBody (headers ++ helperHeaders) body] + parsedBody = parseMIME (headers ++ helperHeaders) body return $! parsedBody >>= return . EmailMessage parsedHeaders