The Lambda Lab
/
projects
/
elpher.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Work around Doom emacs tls problems.
[elpher.git]
/
elpher.el
diff --git
a/elpher.el
b/elpher.el
index
2f39db6
..
e508c61
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-4,7
+4,7
@@
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
;; Author: Tim Vaughan <plugd@thelambdalab.xyz>
;; Created: 11 April 2019
-;; Version: 2.7.
4
+;; Version: 2.7.
5
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
;; Keywords: comm gopher
;; Homepage: http://thelambdalab.xyz/elpher
;; Package-Requires: ((emacs "26"))
@@
-70,7
+70,7
@@
;;; Global constants
;;
;;; Global constants
;;
-(defconst elpher-version "2.7.
4
"
+(defconst elpher-version "2.7.
5
"
"Current version of elpher.")
(defconst elpher-margin-width 6
"Current version of elpher.")
(defconst elpher-margin-width 6
@@
-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."