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

- prevented crash when updating the thread window with a non existent status-id.

This commit is contained in:
cage 2022-11-19 10:58:52 +01:00
parent e6962d54f5
commit 4c78a0fba7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/thread-window.lisp
View File

@ -820,7 +820,7 @@ db:renumber-timeline-message-index."
(when-window-shown (object) (when-window-shown (object)
(cond (cond
(suggested-status-id (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 timeline-folder
suggested-status-id))) suggested-status-id)))
(update-thread-window object message-index))) (update-thread-window object message-index)))
@ -828,7 +828,7 @@ db:renumber-timeline-message-index."
(update-thread-window object suggested-message-index)) (update-thread-window object suggested-message-index))
(t (t
(a:when-let* ((selected-row (selected-row object)) (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)))) (update-thread-window object message-index))))
(when redraw (when redraw
(draw object)))) (draw object))))