From 71fc696f81c08e06fc7af592ddb303ca4bab9de0 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 50df91cc2..c2a0a32cb 100644
--- a/src/mod_shared_roster.erl
+++ b/src/mod_shared_roster.erl
@@ -697,6 +697,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(