diff options
Diffstat (limited to 'email/quoted-printable.scm')
| -rw-r--r-- | email/quoted-printable.scm | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/email/quoted-printable.scm b/email/quoted-printable.scm index 84c52c1..e501af1 100644 --- a/email/quoted-printable.scm +++ b/email/quoted-printable.scm @@ -91,7 +91,7 @@ (match-lambda* (((? bytevector? bv)) (call-with-port (open-bytevector-input-port bv) - quoted-printable-encode)) + quoted-printable-encode)) (((? port? in)) (call-with-output-string (cut quoted-printable-encode in <>))) @@ -110,9 +110,8 @@ (string-map (lambda (c) (if (char=? c #\Space) #\_ c)) - (call-with-port - (open-bytevector-input-port bv) - (lambda (in) - (call-with-output-string - (cut quoted-printable-style-encode in <> - %q-encoding-literal-char-set)))))) + (call-with-port (open-bytevector-input-port bv) + (lambda (in) + (call-with-output-string + (cut quoted-printable-style-encode in <> + %q-encoding-literal-char-set)))))) |