@@ -219,7 +219,11 @@ module App =
219219 Timestamp = DateTimeOffset.UtcNow
220220 Direction = Outgoing DeliveryStatus.Sent }
221221
222− let isFirstInteraction = model.Messages |> messagesFor pk |> List.isEmpty
222+ let neverSentTo =
223+ model.Messages
224+ |> messagesFor pk
225+ |> List.exists (fun m -> match m.Direction with Outgoing _ -> true | _ -> false)
226+ |> not
223227
224228 let model' =
225229 { model with
@@ -229,7 +233,7 @@ module App =
229233 model',
230234 [ CmdEnqueue(pk, Envelope.TextMessage(id, body))
231235 match model.Profile with
232− | Some profile when isFirstInteraction -> CmdEnqueue(pk, Envelope.ProfileMessage profile)
236+ | Some profile when neverSentTo -> CmdEnqueue(pk, Envelope.ProfileMessage profile)
233237 | _ -> ()
234238 saveCmdMsg model' ]
235239 | _ -> model, []