diff options
| author | Arun Isaac | 2019-07-28 12:11:53 +0530 |
|---|---|---|
| committer | Arun Isaac | 2019-07-28 12:13:44 +0530 |
| commit | 1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48 (patch) | |
| tree | 9aebddcb45cbaf7b6e47fc961c98639fd9e0fe42 | |
| parent | 97d4fb537a6ca5a2ffe4da18bd1cbde2d4084fd0 (diff) | |
| download | guile-email-1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48.tar.gz guile-email-1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48.tar.lz guile-email-1f7c45fa0b71bd137e4b661e0d473c3eb9c98f48.zip | |
email: Read mboxes as bytevectors.
* email/email.scm (read-next-email-in-mbox): Read bytes from mboxes,
not characters.
| -rw-r--r-- | email/email.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/email/email.scm b/email/email.scm index 565f8e7..7dc882c 100644 --- a/email/email.scm +++ b/email/email.scm @@ -894,8 +894,10 @@ list of header keys and values." ;; Read and discard From_ line (get-line-with-delimiter port) ;; Read the actual email - (read-while port get-line-with-delimiter - (negate (cut string-prefix? "From " <>)))) + (let ((email (read-bytes-till + port (string->bytevector "\nFrom " "us-ascii")))) + (read-char port) + email)) (define (mbox->emails port) (read-objects read-next-email-in-mbox port)) |