1 files changed, 5 insertions(+), 2 deletions(-)

M Email.hs

@@ 93,9 93,12 @@ getAttachmentsAndMedia :: (Monoid a) =>
 	    -> Const a (MIME.ContentType, ByteString))
 	-> MIME.MIMEMessage -> Const a MIME.MIMEMessage
 getAttachmentsAndMedia = MIME.entities . filtered (\part ->
-		MIME.isAttachment part || has (MIME.contentType .
+		(MIME.isAttachment part || has (MIME.contentType .
+			filtered (\(MIME.ContentType t _ _) ->
+				t /= s"text"
+			)
+		) part) && has (MIME.contentType .
 			filtered (\(MIME.ContentType t sub _) ->
-				t /= s"text" &&
 				not (t == s"application" && sub == s"smil")
 			)
 		) part