1 files changed, 2 insertions(+), 1 deletions(-)

M protocols/gemini-protocol.rkt

@@ 20,6 20,7 @@
   (gemini-response status meta body))
 
 (struct gemini-conn (host port in out) #:mutable)
+
 (define (make-gemini-conn) (gemini-conn #f #f #f #f))
 
 (define (gemini-conn-live? gc)


@@ 54,7 55,7 @@
   (define-values (in out) (ssl-connect/enable-break (url-host url) (url-port url) 'tls12))
   (define gc (make-gemini-conn))
   (set-gemini-conn-in! gc in)
-  (set-gemini-conn-out! gc out)
+  (set-gemini-conn-out! gc (reencode-output-port out "UTF-8"))
   (set-gemini-conn-host! gc (url-host url))
   (set-gemini-conn-port! gc (url-port url))
   gc)