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

diff --git a/elpher.el b/elpher.el
index 1dfdded..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."
@@ -1687,6 +1687,8 @@ Assumes UTF-8 encoding for all text files."
             (elpher-render-text (decode-coding-string body 'utf-8)))
            ((or "jpg" "jpeg" "gif" "png" "bmp" "tif" "tiff")
             (elpher-render-image body))
+           ((or "gopher" "gophermap")
+            (elpher-render-index (elpher-decode body)))
            (_
             (elpher-render-download body))))
        (elpher-restore-pos))))