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:
4cec10e
)
Bug fix: elpher-ipv4-only wasn't being respected.
author
plugd
<plugd@thelambdalab.xyz>
Mon, 2 Aug 2021 09:38:42 +0000
(11:38 +0200)
committer
plugd
<plugd@thelambdalab.xyz>
Mon, 2 Aug 2021 09:38:42 +0000
(11:38 +0200)
elpher.el
patch
|
blob
|
history
diff --git
a/elpher.el
b/elpher.el
index
0e33295
..
b4e508a
100644
(file)
--- a/
elpher.el
+++ b/
elpher.el
@@
-773,7
+773,7
@@
the host operating system and the local network capabilities.)"
(elpher-process-cleanup)
(cond
; Try again with IPv4
(elpher-process-cleanup)
(cond
; Try again with IPv4
- ((not (or force-ipv4 socks))
+ ((not (or
elpher-ipv4-always
force-ipv4 socks))
(message "Connection timed out. Retrying with IPv4.")
(elpher-get-host-response address default-port
query-string
(message "Connection timed out. Retrying with IPv4.")
(elpher-get-host-response address default-port
query-string
@@
-794,7
+794,9
@@
the host operating system and the local network capabilities.)"
(proc (if socks (socks-open-network-stream "elpher-process" nil host service)
(make-network-process :name "elpher-process"
:host host
(proc (if socks (socks-open-network-stream "elpher-process" nil host service)
(make-network-process :name "elpher-process"
:host host
- :family (and force-ipv4 'ipv4)
+ :family (and (or force-ipv4
+ elpher-ipv4-always)
+ 'ipv4)
:service service
:buffer nil
:nowait t
:service service
:buffer nil
:nowait t