#: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)
(string-join (map (compose (cut bytevector->string <> "UTF-8") base64-decode)
(string-split body #\newline)) "\n"))
(('quoted-printable)
- (with-input-from-string body
- (lambda () (qp-decoder (current-input-port)))))
+ (quoted-printable-decode body))
(_ #f)))
body))))
(_ #f)))