diff options
| -rw-r--r-- | email/email.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/email/email.scm b/email/email.scm index 928296d..361a566 100644 --- a/email/email.scm +++ b/email/email.scm @@ -886,8 +886,7 @@ list of header keys and values." (define* (decode-body body encoding #:optional charset) (let ((decoded-octets (case encoding - ((base64) (base64-decode - (bytevector->string body "us-ascii"))) + ((base64) (base64-decode body)) ((quoted-printable) (quoted-printable-decode (bytevector->string body "us-ascii"))) ((#{7bit}# #{8bit}# binary) body) |