~singpolyma/cheogram-smtp

4f0a7f9f82acc0cc3dae99c05caddf90f1114d47 — Stephen Paul Weber 1 year, 4 months ago e94f886
Ignore messages with no content type

They are status updates and other junk
1 files changed, 1 insertions(+), 0 deletions(-)

M MMS.hs
M MMS.hs => MMS.hs +1 -0
@@ 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 =<<