diff options
| author | Arun Isaac | 2018-09-14 19:41:33 +0530 |
|---|---|---|
| committer | Arun Isaac | 2018-09-14 20:18:33 +0530 |
| commit | ca56664e91fd055e73a0fc1791410c1878db41c3 (patch) | |
| tree | c9800443c31415fcd5c1f0d99a5b8d83f57be1ea | |
| parent | 81c3ae5e6d80efd3c87f42552876697c498005d2 (diff) | |
| download | guile-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.
| -rw-r--r-- | email/quoted-printable.scm | 4 |
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)))))))))) |