- % est-ce que les messages auquel on répond existent ?
- Conversations = lists:foldr(
- fun({struct, [{root, Root}, {page, Page}]}, Acc) ->
- Message_existe = euphorik_bd:message_existe(Root),
- if Message_existe ->
- [{Root, Page} | Acc];
- true ->
- Acc
- end
+ % virage des messages qui n'existent pas
+ Conversations = lists:dropwhile(
+ fun(Message_id) ->
+ not euphorik_bd:message_existe(Message_id)