- prevented out of bound condition when scrolling message-window's

contents (this was actually a regression).

src/line-oriented-window.lisp

@@ -224,7 +224,8 @@
   (select-row object 0))
 
 (defun adjust-rows-select-first (window)
-  (select-first-row window))
+  (when (rows window)
+    (select-first-row window)))
 
 (defun adjust-rows-select-last (window)
   (with-accessors ((rows rows)) window

src/program-events.lisp

@@ -1143,6 +1143,8 @@
             (progn
               (setf (gemini-viewer:gemini-metadata-source-file window-metadata) source)
               (setf (gemini-viewer:gemini-metadata-links window-metadata) links)
+              (funcall (message-window:adjust-rows-strategy win)
+                       win)
               (line-oriented-window:update-all-rows win new-rows)))))))
 
 (defmethod process-event ((object gemini-got-line-event))