X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=0332286ccabc88511dc2ec0f7c81d6d4c92810c1;hp=56f8e9bc1e0b36dffbac3a39c7eb3e0d74d35413;hb=e76f5a527f0af78f03a9b42198b7d964be4eea2c;hpb=a19d312db54c43d354530177ce75f578394bf2e9 diff --git a/elpher.el b/elpher.el index 56f8e9b..0332286 100644 --- a/elpher.el +++ b/elpher.el @@ -179,6 +179,11 @@ allows switching from an encrypted channel back to plain text without user input (let ((data (match-data))) ; Prevent parsing clobbering match data (unwind-protect (let ((url (url-generic-parse-url url-string))) + (unless (url-host url) + (setf (url-host url) (url-filename url)) + (setf (url-filename ""))) + (unless (url-type url) + (setf (url-type url) "gopher")) (if (and (url-type url) (url-host url)) (let ((is-gopher (or (equal "gopher" (url-type url))