- [gopher] prevented crash when opening a gopher link and gopher window is not visible;

- [gopher] fixed parsing of text files.

src/gopher-window.lisp

@@ -247,7 +247,8 @@
           ((gopher-parser::%line-type-index-search-p type)
            (search-index-server host port selector))
           ((gopher-parser::%line-type-file-p type)
-           (win-close *gopher-window*)
+           (when *gopher-window*
+             (win-close *gopher-window*))
            (let ((data (misc:make-fresh-array 0 :type '(unsigned-int 8))))
              (gopher-client:request host
                                     type

src/gopher/parser.lisp

@@ -310,7 +310,7 @@
 (defrule text-block (+ (not (and #\Newline #\. #\Return #\Newline)))
   (:text t))
 
-(defrule text-file (and (* text-block) (and #\Newline #\. #\Return #\Newline))
+(defrule text-file (and (* text-block) (? (and #\Newline #\. #\Return #\Newline)))
   (:function caar))
 
 (defun parse-text-file (data)