view/utils: Do not display video attachments.
authorRicardo Wurmus <rekado@elephly.net>
Wed, 13 May 2020 09:58:46 +0000 (11:58 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Wed, 13 May 2020 09:58:46 +0000 (11:58 +0200)
mumi/web/view/utils.scm

index 0735bf5f6d3cab1477f3480af9fe653ebf846467..46dcf65c0b2e45835d4cebb76ecbd9f608eb7350 100644 (file)
@@ -235,7 +235,7 @@ BUG-NUM), even when it is a multipart message."
                  (assoc-ref content-type 'type)))
            (binary-attachment? (and attachment?
                                     (member (assoc-ref content-type 'type)
-                                            '(application image))))
+                                            '(application image video))))
            (attachment-name
             (or (and=> (assoc-ref headers 'content-disposition)
                        (cut assoc-ref <> 'filename))