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/db.lisp
View File

@ -2129,9 +2129,9 @@ reblogged (if exists)."
(= value +db-false+))) (= value +db-false+)))
(let ((query (update :status (let ((query (update :status
(set= column value) (set= column value)
(where (:and (:= :timeline timeline) (where (:and (:= :timeline timeline)
(:= :folder folder) (:= :folder folder)
(:= :status-id status-id)))))) (:= :status-id status-id))))))
(query query))) (query query)))
(defun mark-status-red-p (timeline folder status-id) (defun mark-status-red-p (timeline folder status-id)

22
src/thread-window.lisp
View File

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