diff --git a/modules/delete-by-regex.lisp b/modules/delete-by-regex.lisp
index 2064ccc..eda5fb4 100644
--- a/modules/delete-by-regex.lisp
+++ b/modules/delete-by-regex.lisp
@@ -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
diff --git a/src/db.lisp b/src/db.lisp
index 452368c..b190e34 100644
--- a/src/db.lisp
+++ b/src/db.lisp
@@ -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)
diff --git a/src/package.lisp b/src/package.lisp
index 8403139..4fc1e9b 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -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
diff --git a/src/thread-window.lisp b/src/thread-window.lisp
index 4266ce8..ba25840 100644
--- a/src/thread-window.lisp
+++ b/src/thread-window.lisp
@@ -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*)))))))