aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorArun Isaac2019-10-02 02:32:49 +0530
committerArun Isaac2019-10-02 02:32:49 +0530
commitdd01f11a18eed5d825658f87c35b2e28d08767e4 (patch)
tree3019c4da0aefe1c866993d7739c362ee6576daad /tests
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 'tests')
-rw-r--r--tests/email.scm12
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")))