summaryrefslogtreecommitdiff
path: root/email/quoted-printable.scm
diff options
context:
space:
mode:
Diffstat (limited to 'email/quoted-printable.scm')
-rw-r--r--email/quoted-printable.scm13
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))))))