From: Tim Vaughan <tgvaughan@gmail.com>
Date: Tue, 4 Jun 2019 12:57:32 +0000 (+0200)
Subject: Port section of gopher URLs is now used.
X-Git-Tag: v1.2.0~28
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=93866c098bb16b29d528905a78c626deaad69bbd

Port section of gopher URLs is now used.
---

diff --git a/elpher.el b/elpher.el
index a0b5b39..3831691 100644
--- a/elpher.el
+++ b/elpher.el
@@ -446,7 +446,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 (> (length (match-string 3))  1)
+                             (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)