- [GUI] prevented to transform to an absolute URL an already absolute URL.

src/gui/client/main-window.lisp

@@ -338,6 +338,8 @@
     (to-s copy)))
 
 (defun absolutize-link (request-iri link-value)
+  (if (iri:absolute-url-p link-value)
+      link-value
       (let ((parsed-request-iri (iri:iri-parse request-iri)))
         (multiple-value-bind (x host path query port y w z)
             (gemini-client:displace-iri parsed-request-iri)
@@ -346,7 +348,7 @@
                                          host
                                          port
                                          path
-                                     query))))
+                                         query)))))
 
 (defun slurp-iri (main-window iri)
   (if (not (iri:absolute-url-p iri))