- close (if exists) the gopher window before opening a post.

src/ui-goodies.lisp

@@ -348,6 +348,12 @@ Metadata includes:
   (push-event (make-instance 'search-next-event
                              :priority +maximum-event-priority+)))
 
+(defmacro close-window-and-return-to-threads (window-to-close)
+  `(progn
+     (win-close ,window-to-close)
+     (setf ,window-to-close nil)
+     (focus-to-thread-window)))
+
 (defun thread-open-selected-message ()
   "Open selected message"
   (let ((new-title-event (make-instance 'program-events:change-window-title-event
@@ -355,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*))))
@@ -1284,12 +1292,6 @@ It an existing file path is provided the command will refuse to run."
       (win-close focused)
       (focus-to-message-window))))
 
-(defmacro close-window-and-return-to-threads (window-to-close)
-  `(progn
-     (win-close ,window-to-close)
-     (setf ,window-to-close nil)
-     (focus-to-thread-window)))
-
 (defmacro close-window-and-return-to-message (window-to-close)
   (with-gensyms (focused)
     `(let ((,focused (main-window:focused-window *main-window*)))