From: tim <tim@bs-mbpr247.d.ethz.ch>
Date: Sat, 8 Jun 2019 23:13:39 +0000 (+0200)
Subject: Port matched in URLs now actually used.
X-Git-Tag: v1.1.1~6
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=a722b63b68794e3784ff54552819f12b0f7ec52a

Port matched in URLs now actually used.
---

diff --git a/elpher.el b/elpher.el
index d42b871..eaf6499 100644
--- a/elpher.el
+++ b/elpher.el
@@ -425,7 +425,9 @@ The result is stored as a string in the variable ‘elpher-selector-string’."
             (protocol (downcase (match-string 1))))
         (if (string= protocol "gopher")
             (let* ((host (match-string 2))
-                   (port 70)
+                   (port (if (match-string 3)
+                             (string-to-number (substring (match-string 3) 1))
+                           70))
                    (type-and-selector (match-string 4))
                    (type (if (> (length type-and-selector) 1)
                              (elt type-and-selector 1)