From 4f0a7f9f82acc0cc3dae99c05caddf90f1114d47 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Wed, 1 Feb 2023 16:50:22 -0500
Subject: [PATCH] Ignore messages with no content type

They are status updates and other junk
---
 MMS.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/MMS.hs b/MMS.hs
index 9db1656..6eab884 100644
--- a/MMS.hs
+++ b/MMS.hs
@@ -73,6 +73,7 @@ emailToMMS ::
 	-> MIME.MIMEMessage
 	-> Maybe (MMS, [(CID.CID, ByteString)])
 emailToMMS attachmentUrl ownerT email = do
+		_ <- header "content-type"
 		mid' <- fmap decodeUtf8 $ header "x-internal-message-id"
 		time' <- parseTimeM True defaultTimeLocale rfc822DateFormat .
 			textToString . decodeUtf8 =<<
-- 
2.38.5