From: Koushk Roy <kroy@twilio.com>
Date: Wed, 3 Jun 2020 05:13:44 +0000 (-0700)
Subject: Grab port as well as host from elpher-current-page
X-Git-Tag: v2.7.10~4
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=2cd88ac58b9f3e0d4d92db3f18ac80455dd71588;p=elpher.git

Grab port as well as host from elpher-current-page
---

diff --git a/elpher.el b/elpher.el
index 56c5996..be60abf 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1123,6 +1123,7 @@ For instance, the filename /a/b/../c/./d will reduce to /a/c/d"
           (if (string-empty-p (url-filename address))
               (setf (url-filename address) "/")) ;ensure empty filename is marked as absolute
         (setf (url-host address) (url-host (elpher-page-address elpher-current-page)))
+        (setf (url-port address) (url-port (elpher-page-address elpher-current-page)))
         (unless (string-prefix-p "/" (url-filename address)) ;deal with relative links
           (setf (url-filename address)
                 (concat (file-name-directory