Fix filter_nodes

The previous implementation always returned an empty list while testing
it. However I don't really understand why that happened. The list
comprehension based one works, although it looks equivalent to me.

Author: jbruechert

src/mod_mix.erl

@@ -593,10 +593,8 @@ known_nodes() ->
 
 -spec filter_nodes([binary()]) -> [binary()].
 filter_nodes(Nodes) ->
-    lists:filter(
-      fun(Node) ->
-	      lists:member(Node, Nodes)
-      end, known_nodes()).
+    KnownNodes = known_nodes(),
+    [Node || KnownNode <- KnownNodes, Node <- Nodes, KnownNode == Node].
 
 -spec multicast(module(), binary(), binary(),
 		binary(), binary(), fun((jid()) -> message())) -> ok.