- set open-message-link-window.close-after-select to 'yes'.

- prevented crash when opening tour mode links and configuration directive 'open-message-link-window.close-after-select' values 'yes'.
2024-12-14 22:54:02 +01:00 · 2021-08-16 21:39:59 +02:00 · 2021-08-16 21:39:13 +02:00
1 changed files with 6 additions and 5 deletions
--- a/src/ui-goodies.lisp
+++ b/src/ui-goodies.lisp
@ -1182,11 +1182,12 @@ This makes sense only for gemini file stream, if not this command performs the s
  (%open-message-link-perform-opening t))

 (defun close-open-message-link-window ()
-  (when (message-window:display-gemini-text-p *open-message-link-window*)
-    (open-message-link-window:forget-gemini-link-window))
-  (if (message-window:display-gemini-text-p *message-window*)
-      (close-window-and-return-to-message *open-message-link-window*)
-      (close-window-and-return-to-threads *open-message-link-window*)))
+  (when-window-shown (*open-message-link-window*)
+    (when (message-window:display-gemini-text-p *open-message-link-window*)
+      (open-message-link-window:forget-gemini-link-window))
+    (if (message-window:display-gemini-text-p *message-window*)
+        (close-window-and-return-to-message *open-message-link-window*)
+        (close-window-and-return-to-threads *open-message-link-window*))))

 (defun gemini-open-certificates-window ()
  "Open a window with all the  client certificated generated so far to
Author	SHA1	Message	Date
cage	95e779a9e8	- set open-message-link-window.close-after-select to 'yes'.	2021-08-16 21:39:59 +02:00
cage	ee82cf2d72	- prevented crash when opening tour mode links and configuration directive 'open-message-link-window.close-after-select' values 'yes'.	2021-08-16 21:39:13 +02:00