Cleanly handle C-g at client certificate prompt.

[elpher.git] / elpher.el

diff --git a/elpher.el b/elpher.el
index 809e41f..2ba5e8e 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -1391,7 +1391,8 @@ that the response was malformed."
             (insert "Gemini server is requesting a valid TLS certificate:\n\n"))
           (auto-fill-mode 1)
           (elpher-gemini-insert-text response-meta))
-         (let ((chosen-certificate (elpher-choose-client-certificate)))
+         (let ((chosen-certificate
+                (with-local-quit (elpher-choose-client-certificate))))
            (unless chosen-certificate
              (error "Gemini server requires a client certificate and none was provided"))
            (setq elpher-client-certificate chosen-certificate))