diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:33:19 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 22:33:19 +0100 |
| commit | e05a0fb47a2b783ab9497e87df13b1f1a27e7cc3 (patch) | |
| tree | 22f4f1005361ea5a50233d0d59ed650c689c73af | |
| parent | 7be2bdab8c32eabe82e83dcb43425f823d3a4da3 (diff) | |
mumi: Use (email quoted-printable).
* mumi/web/download.scm (handle-download): Use quoted-printable-decode
from guile-email to decode body.
| -rw-r--r-- | mumi/web/download.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/mumi/web/download.scm b/mumi/web/download.scm index 5aa6828..6a76926 100644 --- a/mumi/web/download.scm +++ b/mumi/web/download.scm @@ -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))) |