From: Tim Vaughan <tgvaughan@gmail.com>
Date: Sun, 8 Sep 2019 22:31:49 +0000 (+0200)
Subject: Made default protocol gopher.
X-Git-Tag: v2.0.0~20
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=commitdiff_plain;h=e76f5a527f0af78f03a9b42198b7d964be4eea2c

Made default protocol gopher.
---

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))