From a722b63b68794e3784ff54552819f12b0f7ec52a Mon Sep 17 00:00:00 2001
From: tim <tim@bs-mbpr247.d.ethz.ch>
Date: Sun, 9 Jun 2019 01:13:39 +0200
Subject: [PATCH] Port matched in URLs now actually used.

---
 elpher.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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)
-- 
2.20.1