From 7853ebda38046dce51602b2bbc33bdcc9a4b409a Mon Sep 17 00:00:00 2001 From: cage Date: Mon, 23 Sep 2024 18:40:32 +0200 Subject: [PATCH] - [GUI] fixed redirection. --- src/gui/client/main-window.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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)