mumi: Use (email quoted-printable).
authorRicardo Wurmus <rekado@elephly.net>
Fri, 9 Nov 2018 21:33:19 +0000 (22:33 +0100)
committerRicardo Wurmus <rekado@elephly.net>
Fri, 9 Nov 2018 21:33:19 +0000 (22:33 +0100)
* mumi/web/download.scm (handle-download): Use quoted-printable-decode
from guile-email to decode body.

mumi/web/download.scm

index 5aa6828064b35d8e1ddef9a50881f4c88ae7e2ec..6a7692698c7dee8a3f122f09b454dca26aa0f312 100644 (file)
@@ -19,6 +19,7 @@
   #: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)
@@ -55,8 +56,7 @@ PATH."
                                       (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)))