diff options
Diffstat (limited to 'email/email.scm')
| -rw-r--r-- | email/email.scm | 12 |
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 |