diff --git a/src/ui-goodies.lisp b/src/ui-goodies.lisp index ae7dd5d..f82675a 100644 --- a/src/ui-goodies.lisp +++ b/src/ui-goodies.lisp @@ -1007,7 +1007,7 @@ It an existing file path is provided the command will refuse to run." (folder (thread-window:timeline-folder *thread-window*)) (status-id (actual-author-message-id selected-message))) (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))) (print-tree tree) (when (string-not-empty-p file)