From efed27fc64fad61f033a2ac5d58ddd597892f391 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Sun, 13 Oct 2024 12:58:45 +0200
Subject: [PATCH] - close (if exists) the gopher window before opening a post.

---
 src/ui-goodies.lisp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp
index 43f0d35..ae134f1 100644
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@@ -361,6 +361,8 @@ Metadata includes:
                                         :window *message-window*)))
     (push-event new-title-event)
     (with-enqueued-process ()
+      (when (gopher-window:gopher-window-p specials:*gopher-window*)
+        (close-window-and-return-to-threads specials:*gopher-window*))
       (setf (windows:keybindings specials:*message-window*)
             keybindings:*message-keymap*)
       (thread-window:open-message *thread-window*))))