cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- [GUI] fixed redirection.

This commit is contained in:
cage 2024-09-23 18:40:32 +02:00
parent e7e795def8
commit 45102d8dc4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/gui/client/main-window.lisp
View File

@ -491,7 +491,7 @@
:title (_ "Redirection") :title (_ "Redirection")
:parent main-window) :parent main-window)
(let ((redirect-iri (if (iri:absolute-url-p meta) (let ((redirect-iri (if (iri:absolute-url-p meta)
meta (remove-standard-port meta)
(absolutize-link iri meta)))) (absolutize-link iri meta))))
(slurp-iri redirect-iri main-window)))) (slurp-iri redirect-iri main-window))))
((gemini-client:header-success-p status-code) ((gemini-client:header-success-p status-code)
@ -1375,9 +1375,11 @@ local file paths."
:title (_ "Redirection") :title (_ "Redirection")
:parent main-window) :parent main-window)
(let ((redirect-iri (if (iri:absolute-url-p meta) (let ((redirect-iri (if (iri:absolute-url-p meta)
meta (remove-standard-port meta)
(absolutize-link iri 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 :status status
:ignore-certificate-expiration ignore-certificate-expiration)))) :ignore-certificate-expiration ignore-certificate-expiration))))
((gemini-client:header-success-p status-code) ((gemini-client:header-success-p status-code)