summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2019-10-02 02:32:49 +0530
committerArun Isaac2019-10-02 02:32:49 +0530
commitdd01f11a18eed5d825658f87c35b2e28d08767e4 (patch)
tree3019c4da0aefe1c866993d7739c362ee6576daad /email
parent6159257c9da3664c516a26fad1ee942068fbbdd2 (diff)
downloadguile-email-dd01f11a18eed5d825658f87c35b2e28d08767e4.tar.gz
guile-email-dd01f11a18eed5d825658f87c35b2e28d08767e4.tar.lz
guile-email-dd01f11a18eed5d825658f87c35b2e28d08767e4.zip
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.
Diffstat (limited to 'email')
-rw-r--r--email/email.scm2
1 files changed, 1 insertions, 1 deletions
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)