From e0849c498564b4d23df503a34c22fb237551bbc8 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Tue, 8 Oct 2019 20:56:01 +0530
Subject: 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.
---
 email/email.scm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'email/email.scm')

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
-- 
cgit v1.2.3