From e76f5a527f0af78f03a9b42198b7d964be4eea2c Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Mon, 9 Sep 2019 00:31:49 +0200 Subject: [PATCH] Made default protocol gopher. --- elpher.el | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- 2.20.1