diff --git a/src/gui/client/main-window.lisp b/src/gui/client/main-window.lisp index 33243f9..55ecbd1 100644 --- a/src/gui/client/main-window.lisp +++ b/src/gui/client/main-window.lisp @@ -398,8 +398,6 @@ (absolutize-link iri meta)))) (slurp-iri redirect-iri main-window)))) ((gemini-client:header-success-p status-code) - (ev:with-enqueued-process-and-unblock () - (comm:make-request :gemini-save-url-db-history 1 iri)) (slurp-non-text-data main-window iri :try-to-open nil)))))) (defun inline-image-p (link-value) @@ -894,12 +892,12 @@ (absolutize-link iri meta)))) (start-stream-iri redirect-iri main-window use-cache status)))) ((gemini-client:header-success-p status-code) - (ev:with-enqueued-process-and-unblock () - (comm:make-request :gemini-save-url-db-history 1 iri)) (cond ((eq status +stream-status-streaming+) (cond ((gemini-client:gemini-file-stream-p meta) + (ev:with-enqueued-process-and-unblock () + (comm:make-request :gemini-save-url-db-history 1 iri)) (maybe-stop-steaming-stream-thread) (clean-gemtext main-window) (initialize-ir-lines main-window)