The Lambda Lab
/
projects
/
elpher.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a4c54eb
)
Work around Doom emacs tls problems.
author
Tim Vaughan
<plugd@thelambdalab.xyz>
Fri, 22 May 2020 11:11:21 +0000
(13:11 +0200)
committer
Tim Vaughan
<plugd@thelambdalab.xyz>
Fri, 22 May 2020 11:11:21 +0000
(13:11 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
f54d183
..
e508c61
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-547,6
+547,7
@@
to ADDRESS."
(error "Cannot retrieve gopher selector: port number > 65536"))
(condition-case nil
(let* ((kill-buffer-query-functions nil)
(error "Cannot retrieve gopher selector: port number > 65536"))
(condition-case nil
(let* ((kill-buffer-query-functions nil)
+ (gnutls-verify-error nil) ; We use the NSM for verification
(port (elpher-address-port address))
(host (elpher-address-host address))
(selector-string-parts nil)
(port (elpher-address-port address))
(host (elpher-address-host address))
(selector-string-parts nil)
@@
-875,6
+876,7
@@
to ADDRESS."
(error "Cannot establish gemini connection: port number > 65536"))
(condition-case nil
(let* ((kill-buffer-query-functions nil)
(error "Cannot establish gemini connection: port number > 65536"))
(condition-case nil
(let* ((kill-buffer-query-functions nil)
+ (gnutls-verify-error nil) ; We use the NSM for verification
(port (elpher-address-port address))
(host (elpher-address-host address))
(response-string-parts nil)
(port (elpher-address-port address))
(host (elpher-address-host address))
(response-string-parts nil)
@@
-954,7
+956,7
@@
that the response was malformed."
(meta (string-trim (substring header 2))))
(list code meta body))
(error "Malformed response: No response status found in header %s" header)))
(meta (string-trim (substring header 2))))
(list code meta body))
(error "Malformed response: No response status found in header %s" header)))
- (error "Malformed response: No CRLF-delimited header found
"
))))
+ (error "Malformed response: No CRLF-delimited header found
in response %s" response
))))
(defun elpher-process-gemini-response (response-string renderer)
"Process the gemini response RESPONSE-STRING and pass the result to RENDERER."
(defun elpher-process-gemini-response (response-string renderer)
"Process the gemini response RESPONSE-STRING and pass the result to RENDERER."