From 6ffb2c5cc14bb00b2ff61a95fae780a029ae943b Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 27 Jun 2021 13:27:15 +0200
Subject: [PATCH] - [gemini] forced redraw of the window when rendering a new
 gemini stream.

---
 src/program-events.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/program-events.lisp b/src/program-events.lisp
index 64069bd..9aec554 100644
--- a/src/program-events.lisp
+++ b/src/program-events.lisp
@@ -1164,8 +1164,9 @@
           (multiple-value-bind (x start length)
               (message-window:visible-rows win)
             (declare (ignore x))
-            (when (< (+ start length)
-                     (windows:win-height-no-border win))
+            (when (or (not append-text)
+                      (< (+ start length)
+                         (windows:win-height-no-border win)))
               (windows:draw win))))))))
 
 (defclass gemini-abort-downloading-event (program-event) ())