cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- prevented opening another connection in a callback contained in 'status-tree->text'.

This commit is contained in:
cage 2023-12-02 17:21:13 +01:00
parent 8f9d83fa0e
commit c83beec078
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ui-goodies.lisp
View File

@ -1007,7 +1007,7 @@ It an existing file path is provided the command will refuse to run."
(folder (thread-window:timeline-folder *thread-window*)) (folder (thread-window:timeline-folder *thread-window*))
(status-id (actual-author-message-id selected-message))) (status-id (actual-author-message-id selected-message)))
(with-enqueued-process () (with-enqueued-process ()
(db-utils:with-ready-database (:connect t) (db-utils:with-ready-database (:connect nil)
(let* ((tree (db:message-id->tree timeline folder status-id))) (let* ((tree (db:message-id->tree timeline folder status-id)))
(print-tree tree) (print-tree tree)
(when (string-not-empty-p file) (when (string-not-empty-p file)