From 4b7c74415fee50e38cebcf9b5c92f0cd39c7b6f1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Pawe=C5=82=20Chmielowski?= <pchmielowski@process-one.net>
Date: Tue, 19 Mar 2013 19:09:16 +0100
Subject: [PATCH] Fix warning from last commit

---
 src/ejabberd_xmlrpc.erl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/ejabberd_xmlrpc.erl b/src/ejabberd_xmlrpc.erl
index 1da0f81b5..93c1d9781 100644
--- a/src/ejabberd_xmlrpc.erl
+++ b/src/ejabberd_xmlrpc.erl
@@ -374,7 +374,8 @@ format_args(Args, ArgsFormat) ->
 format_arg({array, Elements},
 	   {list, {ElementDefName, ElementDefFormat}})
     when is_list(Elements) ->
-    lists:map(fun ({struct, [{ElementDefName, ElementValue}]}) ->
+    lists:map(fun ({struct, [{ElementName, ElementValue}]}) when
+                        ElementDefName == ElementName ->
 		      format_arg(ElementValue, ElementDefFormat)
 	      end,
 	      Elements);