From 7203512c35fb981824a11d9c29076b10a7b2a4da Mon Sep 17 00:00:00 2001 From: plugd Date: Tue, 22 Oct 2024 18:23:42 +0200 Subject: [PATCH] Fix for nested gemini query URL parsing. --- elpher.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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)) -- 2.20.1