   (fn [db [_ {:keys [chat-id msg-id]}]]
     (set-message-shown db chat-id msg-id)))
 
+(defn default-delivery-status [chat-id]
+  (if (console? chat-id)
+    :seen
+    :pending))
+
 (defn prepare-message
   [{:keys [identity current-chat-id] :as db} _]
   (let [text (get-in db [:chats current-chat-id :input-text])

                   :to              current-chat-id
                   :from            identity
                   :content-type    text-content-type
                   :delivery-status :pending
                   :outgoing        true
                   :timestamp       (time/now-ms)})]
    (if command

     :to               chat-id
     :content          content
     :content-type     content-type-command
     :delivery-status  (default-delivery-status chat-id)
     :outgoing         true
     :preview          preview-string
     :rendered-preview preview
