X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=elpher.git;a=blobdiff_plain;f=elpher.el;h=68a3c2adcedea16ea2a776123d77efce456a8ad5;hp=c6627dfaedc519d153693cc9e8db9b26e87dff41;hb=cd9b67cb840e9a4a17d95dcea12924448de69e9b;hpb=2ebb812f7d0df8f0e338355f1722a6bb0950befa

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."