From dd01f11a18eed5d825658f87c35b2e28d08767e4 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 2 Oct 2019 02:32:49 +0530
Subject: email: Tolerate decoding errors in body.

* email/email.scm (decode-body): Tolerate decoding errors in the body
using the substitute conversion strategy.
* tests/email.scm ("tolerate decoding errors in body"): New test.
---
 email/email.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'email/email.scm')

diff --git a/email/email.scm b/email/email.scm
index 666bd3e..1960456 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -910,7 +910,7 @@ list of header keys and values."
            ((#{7bit}# #{8bit}# binary) body)
            (else (error "Body decoding failed. Unknown encoding" encoding)))))
     (if charset
-        (bytevector->string decoded-octets charset)
+        (bytevector->string decoded-octets charset 'substitute)
         decoded-octets)))
 
 (define (read-next-email-in-mbox port)
-- 
cgit v1.2.3