From 70c1e1d0b197b02aa351477c10331544e3068f28 Mon Sep 17 00:00:00 2001
From: Christophe Romain <christophe.romain@process-one.net>
Date: Thu, 4 Nov 2010 16:54:24 +0100
Subject: [PATCH] enforce pubsub cleaner

---
 src/mod_pubsub/pubsub_clean.erl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/mod_pubsub/pubsub_clean.erl b/src/mod_pubsub/pubsub_clean.erl
index 814cee0fb..2368b9f34 100644
--- a/src/mod_pubsub/pubsub_clean.erl
+++ b/src/mod_pubsub/pubsub_clean.erl
@@ -24,6 +24,10 @@ purge() ->
             [N]=mnesia:dirty_read({pubsub_node, K}),
             I=element(3,N),
             lists:foreach(fun(JID) ->
+                case mnesia:dirty_read({pubsub_state, {JID, I}}) of
+                    [{pubsub_state, K, _, _, [{subscribed,S}]}] -> mnesia:dirty_delete({pubsub_subscription, S});
+                    _ -> ok
+                end,
                 mnesia:dirty_delete({pubsub_state, {JID, I}})
             end, offline(pubsub_debug:subscribed(I)))
         end, mnesia:dirty_all_keys(pubsub_node));