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

  (fn [db [_ {:keys [chat-id msg-id]}]]
    (set-message-shown db chat-id msg-id)))

(defn prepare-message
  [{:keys [identity current-chat-id] :as db} _]
  (let [text (get-in db [:chats current-chat-id :input-text])

     :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
