From c3cb571166bcb2d31abbf853f565f2be8e1d6c95 Mon Sep 17 00:00:00 2001
From: nytpu <alex@nytpu.com>
Date: Sun, 7 Jan 2024 09:56:51 -0700
Subject: [PATCH] gemini: update to tolerate servers not sending TLS
 close_notify

---
 gemini.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/gemini.lisp b/gemini.lisp
index f4681e8..b6f3df0 100644
--- a/gemini.lisp
+++ b/gemini.lisp
@@ -72,7 +72,8 @@
           (ssl:make-context :disabled-protocols
                               (list ssl:+ssl-op-no-sslv2+ ssl:+ssl-op-no-sslv3+
                                     ssl:+ssl-op-no-tlsv1+ ssl:+ssl-op-no-tlsv1-1+)
-                            :verify-mode ssl:+SSL-VERIFY-NONE+)))
+                            :verify-mode ssl:+SSL-VERIFY-NONE+
+                            :options (list ssl::+ssl-op-all+ ssl::+ssl-op-ignore-unexpected-eof+))))
   *ctx*)
 
 (defun-contract context-free ()
-- 
2.45.2