From 86f0af337b3d4c8afc075c09a1aae4b1694d9ebd Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sun, 24 Oct 2021 02:46:01 +0530 Subject: email: Handle unrecognized Content-Transfer-Encoding headers. * email/email.scm (handle-invalid-headers): New function. (parse-email-headers): Handle invalid headers. * tests/email.scm ("Assume application/octet-stream Content-Type if Content-Transfer-Encoding is unrecognized"): New test. --- tests/email.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'tests') diff --git a/tests/email.scm b/tests/email.scm index 52f38b6..50625f1 100644 --- a/tests/email.scm +++ b/tests/email.scm @@ -523,6 +523,16 @@ Received: from zzz ([1.2.3.5]) by ooo.ooo.com with Maccrosoft SMTPSVC(5.5.1877. (charset . "utf-8")) (content-transfer-encoding . 7bit))) +;; See ยง6.4 in RFC2045. +(test-alist= "Assume application/octet-stream Content-Type if Content-Transfer-Encoding is unrecognized" + (parse-email-headers + "Content-Transfer-Encoding: some-unrecognized-encoding +Content-Type: text/plain; charset=utf-8 +") + `((content-type (type . application) + (subtype . octet-stream)) + (content-transfer-encoding . binary))) + ;;; ;;; Email addresses -- cgit v1.2.3