1
0
Fork 0

- [GUI] fixed redirection.

This commit is contained in:
cage 2024-09-23 18:40:32 +02:00
parent f756dfe830
commit 7853ebda38
1 changed files with 5 additions and 3 deletions

View File

@ -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)