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. --- tests/email.scm | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'tests') diff --git a/tests/email.scm b/tests/email.scm index 1a0ec34..48056b7 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -322,6 +322,18 @@ body" "iso-8859-1")) (charset . "utf-8") (charset . "foo")))) +(test-equal "tolerate decoding errors in body" + (parse-email + "Content-Transfer-Encoding: quoted-printable + +copyright =A9") + (make-email + `((content-type (type . text) + (subtype . plain) + (charset . "utf-8")) + (content-transfer-encoding . quoted-printable)) + "copyright �")) + (test-equal "parse name-addr email address" (parse-email-address "Foo ") '((name . "Foo") (address . "foo@example.org"))) -- cgit v1.2.3