summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorAndrew Whatson2023-01-03 22:19:42 +1000
committerArun Isaac2023-01-03 13:27:37 +0000
commit8a9c14473f0ae449bfbfe77ba680734e4a14562f (patch)
tree48db47d01165133aea6f7ba4093529ec744374f7 /email
parentf49a4e54acfced1a2a6c5f06caeab42f3eeceaf0 (diff)
downloadguile-email-8a9c14473f0ae449bfbfe77ba680734e4a14562f.tar.gz
guile-email-8a9c14473f0ae449bfbfe77ba680734e4a14562f.tar.lz
guile-email-8a9c14473f0ae449bfbfe77ba680734e4a14562f.zip
email: Support quoted-printable CR LF sequences.
* email/quoted-printable.scm (quoted-printable-decode): Ignore "=\r\n" sequences in the input. * tests/quoted-printable.scm ("quoted-printable decoding of soft line breaks (=\\n)", "quoted-printable decoding of soft line breaks (=\\r\\n)"): New tests. Signed-off-by: Arun Isaac <arunisaac@systemreboot.net>
Diffstat (limited to 'email')
-rw-r--r--email/quoted-printable.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm
index 2c5d7a7..d986346 100644
--- a/email/quoted-printable.scm
+++ b/email/quoted-printable.scm
@@ -1,5 +1,6 @@
;;; guile-email --- Guile email parser
;;; Copyright © 2018, 2020 Arun Isaac <arunisaac@systemreboot.net>
+;;; Copyright © 2023 Andrew Whatson <whatson@tailcall.au>
;;;
;;; This file is part of guile-email.
;;;
@@ -41,11 +42,14 @@
(cond
((eof-object? c) out)
((char=? c #\=)
- ;; TODO: Support "\r\n" line ending
(let ((c1 (read-char in)))
+ ;; Skip if \n was read.
(unless (char=? c1 #\Newline)
(let ((c2 (read-char in)))
- (put-u8 out (string->number (string c1 c2) 16)))))
+ ;; Skip if \r\n was read.
+ (unless (and (char=? c1 #\Return)
+ (char=? c2 #\Newline))
+ (put-u8 out (string->number (string c1 c2) 16))))))
(quoted-printable-decode in out))
(else (put-u8 out (char->integer c))
(quoted-printable-decode in out)))))))