From: plugd <plugd@thelambdalab.xyz>
Date: Tue, 22 Oct 2024 16:23:42 +0000 (+0200)
Subject: Fix for nested gemini query URL parsing.
X-Git-Tag: v3.6.4~1
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=7203512c35fb981824a11d9c29076b10a7b2a4da;p=elpher.git

Fix for nested gemini query URL parsing.
---

diff --git a/elpher.el b/elpher.el
index a880f79..5e21508 100644
--- a/elpher.el
+++ b/elpher.el
@@ -1645,9 +1645,10 @@ treatment that a separate function is warranted."
         (cond
          ((string-prefix-p "/" (url-filename address))) ;do nothing for absolute case
          ((string-prefix-p "?" (url-filename address)) ;handle query-only links
-          (setf (url-filename address)
-                (concat (url-filename current-address)
-                        (url-filename address))))
+          (let* ((current-path (car (url-path-and-query current-address))))
+            (setf (url-filename address)
+                  (concat current-path  ;(url-filename current-address)
+                          (url-filename address)))))
          (t ;deal with relative links
           (setf (url-filename address)
                 (concat (file-name-directory (url-filename current-address))