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

- [GUI] used 'open-iri' to open the redirection iri.

This commit is contained in:
cage 2024-09-25 18:50:09 +02:00
parent f504a8be08
commit 053dc9aafc
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1377,11 +1377,10 @@ local file paths."
(let ((redirect-iri (if (iri:absolute-url-p meta) (let ((redirect-iri (if (iri:absolute-url-p meta)
(remove-standard-port meta) (remove-standard-port meta)
(absolutize-link iri meta)))) (absolutize-link iri meta))))
(start-stream-iri redirect-iri (open-iri redirect-iri
main-window main-window
use-cache t
:status status :status status))))
:ignore-certificate-expiration ignore-certificate-expiration))))
((gemini-client:header-success-p status-code) ((gemini-client:header-success-p status-code)
(cond (cond
((eq status +stream-status-streaming+) ((eq status +stream-status-streaming+)