From 93866c098bb16b29d528905a78c626deaad69bbd Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Tue, 4 Jun 2019 14:57:32 +0200 Subject: [PATCH] Port section of gopher URLs is now used. --- elpher.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) -- 2.20.1