Reindent calls to call-with-port.

* email/email.scm (body->mime-entities, email->headers+body): Reindent
calls to call-with-port.
* email/quoted-printable.scm (quoted-printable-encode,
q-encoding-encode): Reindent calls to call-with-port.
* tests/utils.scm ("read-bytes-till returns eof-object on end of
file"): Reindent call to call-with-port.

2 files changed, 11 insertions, 14 deletions

diff --git a/email/email.scm b/email/email.scm
index 7cef7e7..8cb9757 100644
--- a/email/email.scm
+++ b/email/email.scm
@@ -588,17 +588,15 @@ BOUNDARY (as explained in RFC2045), and return that list."
           (eof-object)
           (read-till-boundary port))))
 
-  (call-with-port
-   (open-bytevector-input-port body)
-   (lambda (port)
-     (read-till-boundary port)
-     (read-objects read-mime-entity port))))
+  (call-with-port (open-bytevector-input-port body)
+    (lambda (port)
+      (read-till-boundary port)
+      (read-objects read-mime-entity port))))
 
 (define (email->headers+body email)
   "Split EMAIL bytevector into headers and body. Return as multiple
 values. The returned headers is a string and body is a bytevector."
-  (call-with-port
-   (open-bytevector-input-port email)
+  (call-with-port (open-bytevector-input-port email)
     (lambda (port)
       ;; Email headers must strictly be ASCII characters. But for the
       ;; sake of supporting Emacs message mode parens style addresses
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))))))