From: plugd <plugd@thelambdalab.xyz>
Date: Tue, 10 Aug 2021 07:50:10 +0000 (+0200)
Subject: Fixed gopher type predicate function.
X-Git-Tag: v3.3.0~19
X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?a=commitdiff_plain;h=cd9b67cb840e9a4a17d95dcea12924448de69e9b;p=elpher.git

Fixed gopher type predicate function.
---

diff --git a/ISSUES.org b/ISSUES.org
index b1556a0..69df28e 100644
--- a/ISSUES.org
+++ b/ISSUES.org
@@ -130,9 +130,6 @@ this can happen:
 - [X] shift history out of node tree and into separate stack
 - [ ] make history stack variables buffer-local
 - [ ] have elpher-with-clean-buffer select appropriate buffer 
-
-** OPEN Replace support for user-specified starting pages
-This used to be available, but was removed during a refactor.
    
 ** OPEN Make installing existing certificates easier
    :LOGBOOK:
@@ -304,3 +301,10 @@ call is just incredibly slow for some bizarre reason.  Happily,
 (url-portspec) is functionally equivalent and is orders of magnitude
 faster.  With this replacement, loading the above page takes ~2s
 and there aren't any other hotspots.
+
+
+** CLOSED Replace support for user-specified starting pages
+:LOGBOOK:
+- State "CLOSED"     from "OPEN"       [2021-08-09 Mon 17:46]
+:END:
+This used to be available, but was removed during a refactor.
diff --git a/elpher.el b/elpher.el
index c6627df..68a3c2a 100644
--- a/elpher.el
+++ b/elpher.el
@@ -424,7 +424,7 @@ address refers to, via the table `elpher-type-map'."
 
 (defun elpher-address-gopher-p (address)
   "Return non-nill if ADDRESS object is a gopher address."
-  (eq 'gopher (elpher-address-type address)))
+  (pcase (elpher-address-type address) (`(gopher ,_) t)))
 
 (defun elpher-address-protocol (address)
   "Retrieve the transport protocol for ADDRESS."