# UNDF: UNDF-2026-000000285
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -1064,11 +1064,12 @@ introduceToRemaining :: VersionRangeChat -> User -> GroupInfo -> GroupMember -> CM ()
 introduceToRemaining vr user gInfo m = do
   (members, introducedGMIds) <-
     withStore' $ \db -> (,) <$> getGroupMembers db vr user gInfo <*> getIntroducedGroupMemberIds db m
-  let recipients = filter (introduceMemP introducedGMIds) members
+  let introducedSet = S.fromList introducedGMIds
+      recipients = filter (introduceMemP introducedSet) members
   introduceMember vr user gInfo m recipients Nothing
   where
-    introduceMemP introducedGMIds mem =
+    introduceMemP introducedSet mem =
       memberCurrent mem
-        && groupMemberId' mem `notElem` introducedGMIds
+        && groupMemberId' mem `S.notMember` introducedSet
         && groupMemberId' mem /= groupMemberId' m