Port matched in URLs now actually used.

[elpher.git] / elpher.el

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