-[gemini] added urls to history if document is loaded from cached content too.

src/gemini-viewer-metadata.lisp

@@ -34,7 +34,8 @@
 (defmethod append-metadata-source ((object gemini-metadata) source-file)
   (setf (gemini-metadata-source-file object)
         (strcat (gemini-metadata-source-file object)
-                source-file)))
+                source-file))
+  object)
 
 (defun add-url-to-history (window url)
   (let* ((metadata   (message-window:metadata window))
@@ -43,7 +44,8 @@
     (when (string/= last-entry
                     url)
       (setf (gemini-metadata-history metadata)
-            (reverse (push url history))))))
+            (reverse (push url history))))
+    window))
 
 (defun maybe-initialize-metadata (window)
   (when (not (gemini-metadata-p (message-window:metadata window)))

src/gemini-viewer.lisp

@@ -442,7 +442,9 @@
        (multiple-value-bind (actual-iri host path query port fragment)
            (displace-iri parsed-iri)
          (if (find-db-stream-url actual-iri)
-             (db-entry-to-foreground actual-iri)
+             (progn
+               (add-url-to-history specials:*message-window* actual-iri)
+               (db-entry-to-foreground actual-iri))
              (request (gemini-parser:make-gemini-iri host
                                                      path
                                                      :query    query