From d15f00a58a8dc28364acdfa6f178c8a47b1de51a Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Fri, 4 Apr 2014 22:48:14 +0900
Subject: [PATCH] Handling cr in binary lines.

---
 lib/chibi/mime.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/chibi/mime.scm b/lib/chibi/mime.scm
index 1ed5a7e6..99c865d6 100644
--- a/lib/chibi/mime.scm
+++ b/lib/chibi/mime.scm
@@ -232,6 +232,9 @@
                      res)))
               ((eqv? ch 10)
                (get-output-bytevector out))
+              ((and (eqv? ch 13) (eqv? (peek-u8 in) 10))
+               (read-u8 in)
+               (get-output-bytevector out))
               (else
                (write-u8 ch out)
                (lp)))))))