--- a/util/stanza.lua	Sat Jul 07 20:57:20 2018 +0200
+++ b/util/stanza.lua	Sun Jul 08 16:48:59 2018 +0200
@@ -97,6 +97,16 @@
 	return self;
 end
 
+function stanza_mt:remove_children(name, xmlns)
+	xmlns = xmlns or self.attr.xmlns;
+	return self:maptags(function (tag)
+		if (not name or tag.name == name) and tag.attr.xmlns == xmlns then
+			return nil;
+		end
+		return tag;
+	end);
+end
+
 function stanza_mt:get_child(name, xmlns)
 	for _, child in ipairs(self.tags) do
 		if (not name or child.name == name)