1
0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-15 07:50:36 +01:00

- fixed function name.

This commit is contained in:
cage 2021-11-30 21:16:07 +01:00
parent 13505665bd
commit 0b5c56f0ee
4 changed files with 4 additions and 4 deletions

View File

@ -33,7 +33,7 @@
(status-id (db:row-message-status-id row)))
(when (or (scan scanner user)
(scan scanner subject))
(db:mark-status-red-p timeline-type
(db:mark-status-read timeline-type
timeline-folder
status-id)
(db:mark-status-deleted-p timeline-type

View File

@ -2145,7 +2145,7 @@ reblogged (if exists)."
(:= :status-id status-id))))))
(query query)))
(defun mark-status-red-p (timeline folder status-id)
(defun mark-status-read (timeline folder status-id)
(mark-status-boolean-value timeline folder status-id :redp +db-true+))
(defun mark-status-unread (timeline folder status-id)

View File

@ -944,7 +944,7 @@
:all-attachments-to-status
:attachment-to-chat-message
:all-attachments-urls-to-status
:mark-status-red-p
:mark-status-read
:mark-status-unread
:mark-status-deleted-p
:mark-status-prevent-deletion

View File

@ -878,7 +878,7 @@ db:renumber-timeline-message-index."
actual-body
poll-text
actual-attachments))
(db:mark-status-red-p timeline-type timeline-folder status-id)
(db:mark-status-read timeline-type timeline-folder status-id)
(resync-rows-db object :redraw t)
(program-events:push-event refresh-event)
(draw *message-window*)))))))