anchor.diff:                            fun (#node_state{state=nearly_down,name=Node,
                                              mailed_down_warning=false}=S,
                                  {Warnings, DS}) ->
  -                              {[{mail_down_warning, Node}|Warnings],
  -                               [S#node_state{mailed_down_warning=true}|DS]};
  -                              % Warning was already sent
  +                                  {[{mail_down_warning, Node}|Warnings],
  +                                   [S#node_state{mailed_down_warning=true}|DS]};
  +                              %% Warning was already sent
                                 (S, {Warnings, DS}) ->
                                     {Warnings, [S|DS]}
                             end, {[], []}, Else),
  
positive.code:     UpFun =
          fun (#node_state{state = removed}, Acc) -> Acc;
              (NodeState, Acc) ->
                  [NodeState#node_state{state = up,
                                        down_counter = 0,
                                        mailed_down_warning = false}
  
negative.code:                                                 _ -> State#state.mailed_too_small_cluster
                                              end
                  },
      case Actions of
          [] -> ok;
          _ ->
              ?log_debug("Decided on following actions: ~p", [Actions])
      end,
      {Actions, NewState}.
  
  
  