From a7145a60ee4ba9699cfb2080ab6e96d1ab64f722 Mon Sep 17 00:00:00 2001
From: plugd <plugd@thelambdalab.xyz>
Date: Mon, 2 Aug 2021 11:38:42 +0200
Subject: [PATCH] Bug fix: elpher-ipv4-only wasn't being respected.
---
elpher.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/elpher.el b/elpher.el
index 0e33295..b4e508a 100644
--- 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
- ((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
@@ -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
- :family (and force-ipv4 'ipv4)
+ :family (and (or force-ipv4
+ elpher-ipv4-always)
+ 'ipv4)
:service service
:buffer nil
:nowait t
--
2.20.1