From df44a478414b61d7d188de4935837371c2762d1f Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Sat, 31 Oct 2020 19:26:31 -0500 Subject: [PATCH] Try new group text porcelein format --- Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Main.hs b/Main.hs index bce5281..2949a52 100644 --- a/Main.hs +++ b/Main.hs @@ -1289,7 +1289,7 @@ groupTextPorcelein host m@(Message { messagePayloads = p, messageFrom = Just fro Just $ m { messageTo = Just to, messageFrom = parseJID (fromString (intercalate "," (sort tels)) ++ (s"@") ++ host), - messagePayloads = body { elementNodes = (NodeContent $ ContentText $ s"(") : (NodeContent $ ContentText fromTel) : (NodeContent $ ContentText $ s") ") : elementNodes body } : + messagePayloads = body { elementNodes = (NodeContent $ ContentText $ s" ") : elementNodes body } : filter (`notElem` [addresses, body]) p } groupTextPorcelein _ _ = Nothing -- 2.45.2