anchor.diff:          ?descLow     -> not lists:member(?prioLow,    Filter);
           ?descMedium  -> not lists:member(?prioMedium, Filter);
           ?descHigh    -> not lists:member(?prioHigh,   Filter);
  -        ?descNone    -> not lists:member(?prioNone,   Filter)
  +        ?descNone    -> not lists:member(?prioNone,   Filter);
  +        _            -> error
       end.
   
   %%--------------------------------------------------------------------
  
positive.code:         ?descPlanning   -> not lists:member(?statusPlanning,   Filter);
          ?descInProgress -> not lists:member(?statusInProgress, Filter);
          ?descDone       -> not lists:member(?statusDone,       Filter);
          ?descNone       -> not lists:member(?statusNone,       Filter)
      end.
  
  filterPrio(Prio, Filter) ->
  
negative.code: filter(undefined, _Filter) ->
      %% Corrupt database.
      false;
  filter(ETodo = #etodo{status = Status, priority = Prio}, Filter) ->
      case filterStatus(Status, Filter) of
          error ->
              eLog:log(debug, ?MODULE, filter, [ETodo, Status],
                  "Unknown status, do not show", ?LINE),
              false;
          true ->
              case filterPrio(Prio, Filter) of
                  error ->
                      eLog:log(debug, ?MODULE, filter, [ETodo, Prio],
                          "Unknown priority, do not show", ?LINE),
                      false;
                  Else ->
                      Else
              end;
          false ->
              false
      end.
  