core: flatten MsgContainer type to match wire JSON format (#6808)

* core: refactor MsgContainer

* comment

* simplify

* refactor

* corrections

* update

* clean up

---------

Co-authored-by: Evgeny Poberezkin <evgeny@poberezkin.com>

src/Simplex/Chat/Store/Messages.hs

@@ -558,7 +558,9 @@ createNewRcvChatItem db user chatDirection RcvMessage {msgId, chatMsgEvent, msgS
   quotedItem <- mapM (getChatItemQuote_ db user chatDirection) quotedMsg
   pure (ciId, quotedItem, itemForwarded)
   where
-    itemForwarded = cmForwardedFrom chatMsgEvent
+    itemForwarded = case chatMsgEvent of
+      ACME _ (XMsgNew MsgContainer {forward}) | forward == Just True -> Just CIFFUnknown
+      _ -> Nothing
     quotedMsg = cmToQuotedMsg chatMsgEvent
     quoteRow :: NewQuoteRow
     quoteRow = case quotedMsg of