view: Treat image attachments as binaries.

* mumi/web/view/utils.scm (display-message-body): Handle attachments
of type "image" like any other binary attachment.

diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm
index 584b9a9..bdecc14 100644 (file)
--- a/mumi/web/view/utils.scm
+++ b/mumi/web/view/utils.scm
@@ -124,7 +124,8 @@ BUG-NUM), even when it is a multipart message."
                  content-type
                  (assoc-ref content-type 'type)))
            (binary-attachment? (and attachment?
-                                    (eq? (assoc-ref content-type 'type) 'application)))
+                                    (member (assoc-ref content-type 'type)
+                                            '(application image))))
            (attachment-name
             (or (and=> (assoc-ref headers 'content-disposition)
                        (cut assoc-ref <> 'filename))