- fixed keymap of messages window when switching focus or opening a toot.

src/message-window.lisp

@@ -42,8 +42,10 @@
       keybindings:*chat-message-keymap*))
 
 (defun prepare-for-display-status-mode (window)
-  (setf (keybindings window)
-        keybindings:*message-keymap*))
+  (when (not (or (display-gemini-text-p window)
+                 (display-chat-p        window)))
+    (setf (keybindings window)
+          keybindings:*message-keymap*)))
 
 (defmethod (setf source-text) (new-text (object message-window))
   (setf (slot-value object 'source-text) new-text)

src/ui-goodies.lisp

@@ -280,6 +280,8 @@ Metadata includes:
 
 (defun thread-open-selected-message ()
   "Open selected message"
+  (setf (windows:keybindings specials:*message-window*)
+        keybindings:*message-keymap*)
   (thread-window:open-message *thread-window*))
 
 (defun thread-mark-delete-selected-message ()