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

- skipped threads group (pair timeline and folder) that has not 

statuses  marked to  be  deleted when  sorting  all statuses  before
  quitting the  program. Hopefully this  is the last change  needed to
  remove  long   waiting  times  before  program   process  terminate,
  returning to the shell.
This commit is contained in:
cage 2021-03-20 20:27:13 +01:00
parent 17bb9f5f15
commit 6228858e79
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/db.lisp
View File

@ -1974,8 +1974,10 @@ messages are sorted as below:
(let ((all-folders (all-folders))
(all-timelines (all-status-timelines)))
(loop for folder in all-folders do
(loop for timeline in all-timelines do
(renumber-timeline-message-index timeline folder :account-id nil)))))
(loop for timeline in all-timelines
when (statuses-marked-to-delete timeline folder)
do
(renumber-timeline-message-index timeline folder :account-id nil)))))
(defun all-attachments-to-status (status-id)
(fetch-all-rows (select :*