X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=b4e508ad9e4244888bfac06d5eb8aacb878c27d0;hp=0e3329504ce71ebfa4f6c0695b1a9e57092fc7b6;hb=a7145a60ee4ba9699cfb2080ab6e96d1ab64f722;hpb=4cec10eea4923fc7738566922c4fb82aee575ed8

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