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.

1 files changed, 5 insertions, 7 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