Made gophermap info type parser more robust.

diff --git a/ISSUES.org b/ISSUES.org
index 0ce57fd..3ebb22d 100644 (file)
--- a/ISSUES.org
+++ b/ISSUES.org
@@ -41,17 +41,8 @@ Here is the checklist of features required before release:
 The last few will be made infinitely easier if we factor the
 gopher "getter" code differently.
 
-
 ** OPEN Add history browsing
    
-** OPEN Download/rendering progress feedback
-   Particularly for large files or complicated pages, elpher can
-   take a few seconds or more to generate a response.  Thhis is
-   frustrating for users, who are left staring at a blinking
-   cursor.
-
-   A small amount of feedback could help with this.
-   
 * Bugs
   
 * Completed improvements
@@ -132,6 +123,14 @@ occasionally pop up in termal windows.  Lets leave it for now.
    
    Okay, replacing this really does improve things.  Large gemini
    downloads now seem occur at rates I'd expect.
+   
+** CLOSED Download/rendering progress feedback
+   Particularly for large files or complicated pages, elpher can
+   take a few seconds or more to generate a response.  Thhis is
+   frustrating for users, who are left staring at a blinking
+   cursor.
+
+   A small amount of feedback could help with this.
 
 * Closed issues
   

diff --git a/elpher.el b/elpher.el
index b5373f4..d100acb 100644 (file)
--- a/elpher.el
+++ b/elpher.el
@@ -265,6 +265,7 @@ The basic attributes include: TYPE, SELECTOR, HOST and PORT.
 If the optional attribute TLS is non-nil, the address will be marked as
 requiring gopher-over-TLS."
   (cond
+   ((equal type ?i) nil)
    ((and (equal type ?h)
          (string-prefix-p "URL:" selector))
     (elpher-address-from-url (elt (split-string selector "URL:") 1)))
@@ -698,7 +699,7 @@ If ADDRESS is not supplied or nil the record is rendered as an
                               'follow-link t
                               'help-echo (elpher-page-button-help page)))
       (pcase type
-        ((or '(gopher ?i) 'nil) ;; Information
+        ('nil ;; Information
          (elpher-insert-margin)
          (let ((propertized-display-string
                 (propertize display-string 'face 'elpher-info)))