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

- fixed renumbering of 'message-index' of status. 

The  old  procedure did  not  took  into  account the  'folder'  and
  'timeline' columns making  possible to overwrite index of  a copy of
  the  same message  placed in  different folder.  This bug  made the
  program crash.
This commit is contained in:
cage 2020-05-19 20:27:04 +02:00
parent c39fe07a34
commit 5df777a804
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/db.lisp
View File

@ -1459,7 +1459,9 @@ messages are sorted as below:
(let* ((status-id (row-message-status-id (annotated-tree-line->data-plist line)))
(query-update (update :status
(set= :message-index new-index)
(where (:= :status-id status-id)))))
(where (:and (:= :status-id status-id)
(:= :folder folder)
(:= :timeline timeline-type))))))
(query query-update)
(incf new-index)))))))