Merge pull request #38 from mirage/pecu-flush

Ensure to resend Partial on quoted-printable encoder
mirage · Nov 26, 2020 · 5eee2d9 · 5eee2d9
2 parents f3bc32a + 235a1ce
commit 5eee2d9
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/mt.ml b/lib/mt.ml
@@ -32,7 +32,9 @@ let to_quoted_printable : ?length:int -> buffer stream -> buffer stream = fun ?l
          line emitted by [to_quoted_printable] finish with a [CRLF]. TODO: may
          be this behavior is strictly under [Pecu] impl. *)
       Ke.Rke.cons queue 258 ;
-      (pending[@tailcall]) (Pecu.encode encoder `Line_break)
+      ( match Pecu.encode encoder `Line_break with
+        | `Ok -> go ()
+        | `Partial -> (emit[@tailcall]) () )
     | 258 (* End *) ->
       Ke.Rke.cons queue 259 ;
       (pending[@tailcall]) (Pecu.encode encoder `End)