From ca56664e91fd055e73a0fc1791410c1878db41c3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 14 Sep 2018 19:41:33 +0530
Subject: quoted-printable: Encode printable ASCII characters to themselves.

* email/quoted-printable.scm (quoted-printable-encode): Encode only
printable ASCII characters, that is, ASCII characters in the interval
[#\space, #\delete), to themselves.
---
 email/quoted-printable.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'email')

diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm
index 11abaff..753d7ae 100644
--- a/email/quoted-printable.scm
+++ b/email/quoted-printable.scm
@@ -80,7 +80,9 @@
             in out
             (put-into-output
              (if (char-set-contains?
-                  (char-set-delete char-set:ascii #\newline #\return) c)
+                  (ucs-range->char-set (char->integer #\space)
+                                       (char->integer #\delete))
+                  c)
                  (string c)
                  (format #f "=~:@(~2,'0x~)" x))))))))))
 
-- 
cgit v1.2.3