From 4c78a0fba7cf5c5f428fcd5d1ec540bf48bde6eb Mon Sep 17 00:00:00 2001 From: cage Date: Sat, 19 Nov 2022 10:58:52 +0100 Subject: [PATCH] - prevented crash when updating the thread window with a non existent status-id. --- src/thread-window.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/thread-window.lisp b/src/thread-window.lisp index 3542498..404bf1a 100644 --- a/src/thread-window.lisp +++ b/src/thread-window.lisp @@ -820,7 +820,7 @@ db:renumber-timeline-message-index." (when-window-shown (object) (cond (suggested-status-id - (let ((message-index (message-tuple-id->message-index timeline-type + (a:when-let* ((message-index (message-tuple-id->message-index timeline-type timeline-folder suggested-status-id))) (update-thread-window object message-index))) @@ -828,7 +828,7 @@ db:renumber-timeline-message-index." (update-thread-window object suggested-message-index)) (t (a:when-let* ((selected-row (selected-row object)) - (message-index (db:row-message-index (fields selected-row)))) + (message-index (db:row-message-index (fields selected-row)))) (update-thread-window object message-index)))) (when redraw (draw object))))