diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 9eb60bb..e223ab4 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -491,7 +491,7 @@ :title (_ "Redirection") :parent main-window) (let ((redirect-iri (if (iri:absolute-url-p meta) - meta + (remove-standard-port meta) (absolutize-link iri meta)))) (slurp-iri redirect-iri main-window)))) ((gemini-client:header-success-p status-code) @@ -1375,9 +1375,11 @@ local file paths." :title (_ "Redirection") :parent main-window) (let ((redirect-iri (if (iri:absolute-url-p meta) - meta + (remove-standard-port meta) (absolutize-link iri meta)))) - (start-stream-iri redirect-iri main-window use-cache + (start-stream-iri redirect-iri + main-window + use-cache :status status :ignore-certificate-expiration ignore-certificate-expiration)))) ((gemini-client:header-success-p status-code)