diff options
-rw-r--r-- | mumi/web/download.scm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/mumi/web/download.scm b/mumi/web/download.scm index 6a76926..9037b64 100644 --- a/mumi/web/download.scm +++ b/mumi/web/download.scm @@ -1,5 +1,6 @@ ;;; mumi -- Mediocre, uh, mail interface ;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> +;;; Copyright © 2019 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU Affero General Public License @@ -19,8 +20,6 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-26) #:use-module (email email) - #:use-module (email quoted-printable) - #:use-module (debbugs base64) #:use-module (ice-9 iconv) #:use-module (ice-9 match) #:use-module (ice-9 regex) @@ -49,15 +48,6 @@ PATH." "attachment")))) (_ #f)) headers) - ;; Try to decode the attachment - (or (and=> (assoc-ref headers 'content-transfer-encoding) - (match-lambda - (('base64) - (string-join (map (compose (cut bytevector->string <> "UTF-8") base64-decode) - (string-split body #\newline)) "\n")) - (('quoted-printable) - (quoted-printable-decode body)) - (_ #f))) - body)))) + body))) (_ #f))) (apply render-html (unknown id)))) |