Port section of gopher URLs is now used.

diff --git a/elpher.el b/elpher.el
index a0b5b39..3831691 100644 (file)
--- 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)