- (?6 ; Client certificate required
- (elpher-with-clean-buffer
- (if elpher-client-certificate
- (insert "Gemini server does not recognise the provided TLS certificate:\n\n")
- (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)))
- (unless chosen-certificate
- (error "Gemini server requires a client certificate and none was provided"))
- (setq elpher-client-certificate chosen-certificate))
- (elpher-with-clean-buffer)
- (elpher-get-gemini-response (elpher-page-address elpher-current-page) renderer))