diff options
| -rw-r--r-- | mumi/web/view/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/mumi/web/view/utils.scm b/mumi/web/view/utils.scm index d05e4a8..7ab5ab5 100644 --- a/mumi/web/view/utils.scm +++ b/mumi/web/view/utils.scm @@ -260,7 +260,8 @@ lines when PLAIN? is #T." (lambda (disposition) (and=> (assoc-ref disposition 'size) (lambda (size) - (> size 5000)))))))) + (> size 5000))))) + (> (string-length body) 5000)))) (attachment-name (or (and=> (assoc-ref headers 'content-disposition) (cut assoc-ref <> 'filename)) |