~singpolyma/cheogram

df44a478414b61d7d188de4935837371c2762d1f — Stephen Paul Weber 4 years ago 08c3319
Try new group text porcelein format
1 files changed, 1 insertions(+), 1 deletions(-)

M Main.hs
M Main.hs => Main.hs +1 -1
@@ 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"<xmpp:") : (NodeContent $ ContentText fromTel) : (NodeContent $ ContentText $ s"@") : (NodeContent $ ContentText host) : (NodeContent $ ContentText $ s"> ") : elementNodes body } :
				filter (`notElem` [addresses, body]) p
		}
groupTextPorcelein _ _ = Nothing