summaryrefslogtreecommitdiff
path: root/email
diff options
context:
space:
mode:
authorArun Isaac2018-09-14 19:41:33 +0530
committerArun Isaac2018-09-14 20:18:33 +0530
commitca56664e91fd055e73a0fc1791410c1878db41c3 (patch)
treec9800443c31415fcd5c1f0d99a5b8d83f57be1ea /email
parent81c3ae5e6d80efd3c87f42552876697c498005d2 (diff)
downloadguile-email-ca56664e91fd055e73a0fc1791410c1878db41c3.tar.gz
guile-email-ca56664e91fd055e73a0fc1791410c1878db41c3.tar.lz
guile-email-ca56664e91fd055e73a0fc1791410c1878db41c3.zip
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.
Diffstat (limited to 'email')
-rw-r--r--email/quoted-printable.scm4
1 files changed, 3 insertions, 1 deletions
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))))))))))