1 files changed, 6 insertions(+), 1 deletions(-)

M Main.hs

@@ 592,7 592,12 @@ processSMS db toVitelity toComponent componentHost conferenceServers tel txt = d
 		Just Who -> do
 			let room = maybe "" (T.unpack . bareTxt) existingRoom
 			presence <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (room <> "\0presence"))
-			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ "Group participants: " <> intercalate ", " presence
+			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ mconcat [
+					"You are joined to ", room,
+					" as ", T.unpack nick,
+					" along with\n",
+					intercalate ", " presence
+				]
 		Just List -> do
 			bookmarks <- fmap (fromMaybe [] . (readZ =<<)) (TC.runTCM $ TC.get db (tcKey tel "bookmarks"))
 			writeStanzaChan toVitelity $ mkSMS tel $ fromString $ "Groups you can /join\n" <> intercalate "\n" bookmarks