idempotent joined chat msg

This commit is contained in:
michaelr 2016-04-20 13:12:12 +03:00
parent f63e033e18
commit dbfbd18eaf
1 changed files with 1 additions and 1 deletions

View File

@ -148,7 +148,7 @@
(defn joined-chat-msg [chat-id from msg-id]
(let [contact-name (:name (contacts/contact-by-identity from))]
(save-message chat-id {:from "system"
:msg-id msg-id
:msg-id (str msg-id "_" from)
:content (str (or contact-name from) " received chat invitation")
:content-type text-content-type})))