- [gopher] fixed going back to net history.

etc/init.lisp

@@ -406,6 +406,8 @@
 
 (define-key "|"         #'send-to-pipe                                *message-keymap*)
 
+(define-key "b"         #'gemini-history-back                         *message-keymap*)
+
 ;; gemini viewer keymap
 
 (define-key "up"        #'message-scroll-up                          *gemini-message-keymap*)

src/gopher-window.lisp

@@ -222,16 +222,16 @@
 (defun make-request (host port type selector)
   (let ((message-win     specials:*message-window*))
     (gemini-viewer:maybe-initialize-metadata message-win)
-    (let ((link (format nil "~a://~a:~a/~a/~a"
-                        gopher-parser:+gopher-scheme+
-                        host
-                        port
-                        type
-                        selector)))
-      (with-notify-errors
+    (with-notify-errors
+      (let ((link (format nil "~a://~a:~a/~a/~a"
+                          gopher-parser:+gopher-scheme+
+                          host
+                          port
+                          type
+                          selector)))
+        (gemini-viewer:push-url-to-history message-win link)
         (cond
           ((gopher-parser::%line-type-dir-p type)
-           (gemini-viewer:push-url-to-history message-win link)
            (let ((data (misc:make-fresh-array 0 :type '(unsigned-int 8))))
              (gopher-client:request host
                                     type

src/ui-goodies.lisp

@@ -2267,7 +2267,7 @@ Currently the only recognized protocols are gemini and kami."
                                  :priority program-events:+maximum-event-priority+))
 
 (defun gemini-history-back ()
-  "Reopen a previous visited gemini address"
+  "Reopen a previous visited net address"
   (push-event (make-instance 'gemini-back-event)))
 
 (defun address-go-back-in-path ()