1 files changed, 12 insertions, 0 deletions
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 <foo@example.org>")
   '((name . "Foo") (address . "foo@example.org")))