cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-17 08:10:36 +01:00
Code Issues

- prevented crash when mark or unmark for deletion an empty thread window.

Browse Source
This commit is contained in:
cage 2021-09-10 18:26:12 +02:00
parent ae266982cb
commit 9b8aa8bd93
2 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/thread-window.lisp
View File

@ -882,17 +882,23 @@ db:renumber-timeline-message-index."
(defmethod mark-selected-message-to-delete ((object thread-window)
&key (move-down-selected-message nil))
(if (selected-row object)
(progn
(mark-selected-status-boolean-value object #'db:mark-status-deleted-p)
(resync-rows-db object :redraw t)
(when move-down-selected-message
(go-message-down object)))
(ui:error-message (_ "No message to delete"))))
(defmethod mark-selected-message-prevent-delete ((object thread-window)
&key (move-down-selected-message nil))
(if (selected-row object)
(progn
(mark-selected-status-boolean-value object #'db:mark-status-prevent-deletion)
(resync-rows-db object :redraw t)
(when move-down-selected-message
(go-message-down object)))
(ui:error-message (_ "No message to undelete"))))
(defun rebuild-lines (window message-id)
(multiple-value-bind (tree pos)