cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-03 04:37:29 +01:00
Code Issues

- prevented crash when opening tour mode links and configuration directive 'open-message-link-window.close-after-select' values 'yes'.

Browse Source
This commit is contained in:
cage 2021-08-16 21:39:13 +02:00
parent ca353ae982
commit ee82cf2d72
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
etc/shared.conf
View File

@ -43,7 +43,7 @@ start.update.gemlog = yes
# close links window when opening the selected link # close links window when opening the selected link
open-message-link-window.close-after-select = yes open-message-link-window.close-after-select = no
# color parts of a displayed message according to a regular expression # color parts of a displayed message according to a regular expression
# syntax is regular expression color attribute # syntax is regular expression color attribute

11
src/ui-goodies.lisp
View File

@ -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)) (%open-message-link-perform-opening t))
(defun close-open-message-link-window () (defun close-open-message-link-window ()
(when (message-window:display-gemini-text-p *open-message-link-window*) (when-window-shown (*open-message-link-window*)
(open-message-link-window:forget-gemini-link-window)) (when (message-window:display-gemini-text-p *open-message-link-window*)
(if (message-window:display-gemini-text-p *message-window*) (open-message-link-window:forget-gemini-link-window))
(close-window-and-return-to-message *open-message-link-window*) (if (message-window:display-gemini-text-p *message-window*)
(close-window-and-return-to-threads *open-message-link-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 () (defun gemini-open-certificates-window ()
"Open a window with all the client certificated generated so far to "Open a window with all the client certificated generated so far to