;;; 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
#: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)
"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))))