summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--mumi/web/view/utils.scm13
1 files changed, 9 insertions, 4 deletions
diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm
index 6f6e16a..27cd2de 100644
--- a/mumi/web/view/utils.scm
+++ b/mumi/web/view/utils.scm
@@ -234,15 +234,20 @@ BUG-NUM), even when it is a multipart message."
(cut assoc-ref <> 'type))
content-type
(assoc-ref content-type 'type)))
- (binary-attachment? (and attachment?
- (member (assoc-ref content-type 'type)
- '(application image video))))
+ (hide-attachment? (and attachment?
+ (or (member (assoc-ref content-type 'type)
+ '(application image video))
+ (and=> (assoc-ref headers 'content-disposition)
+ (lambda (disposition)
+ (and=> (assoc-ref disposition 'size)
+ (lambda (size)
+ (> size 5000))))))))
(attachment-name
(or (and=> (assoc-ref headers 'content-disposition)
(cut assoc-ref <> 'filename))
"file")))
(cond
- ((or html? binary-attachment?)
+ ((or html? hide-attachment?)
`(div (@ (class "attachment"))
"Attachment: "
(a (@ (href ,(attachment-url))) ,attachment-name)))