From fe23dbd76e0d592709731b7fa93eb4d55e44b514 Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Thu, 24 Jun 2010 00:02:16 +0200
Subject: [PATCH] When account is deleted, delete also member of stored shared
 rosters.

---
 src/mod_shared_roster.erl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/mod_shared_roster.erl b/src/mod_shared_roster.erl
index 60bf6a1af..64a8291b6 100644
--- a/src/mod_shared_roster.erl
+++ b/src/mod_shared_roster.erl
@@ -655,6 +655,7 @@ push_user_to_members(User, Server, Subscription) ->
     UserGroups = get_user_displayed_groups(LUser, LServer, GroupsOpts),
     lists:foreach(
       fun(Group) ->
+	      remove_user_from_group(LServer, {LUser, LServer}, Group),
 	      GroupOpts = proplists:get_value(Group, GroupsOpts, []),
 	      GroupName = proplists:get_value(name, GroupOpts, Group),
 	      lists:foreach(