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