Fix problem with pushing bufferend #xmlel-s to receiver in websocket code

src/ejabberd_http_ws.erl

@@ -138,8 +138,10 @@ handle_event({activate, From}, StateName, StateData) ->
              StateData#state{waiting_input = From}};
       Input ->
             Receiver = From,
-            lists:foreach(fun(I) ->
-                                  Receiver ! {tcp, StateData#state.socket, I}
+            lists:foreach(fun(I) when is_binary(I)->
+                                  Receiver ! {tcp, StateData#state.socket, I};
+                             (I2) ->
+                                  Receiver ! {tcp, StateData#state.socket, [I2]}
                           end, Input),
             {next_state, StateName,
              StateData#state{input = [], waiting_input = false,