anchor.diff:      {error, "Method not allowed."}
     ]}), Req).
   
  -handle_query(OUkey, undefined, Req) ->
  +handle_query(OUkey, Req) ->
     {ok, Ukey} = user_server:match_ouKey(OUkey),
  +  {ok, InboxList} = {ok, []},
   %%   TODO Fetch List of Inbox Messages
  -  {ok, ensureInboxItemJson([]), Req};
  -
  -handle_query(OUkey, Messageid, Req) ->
  -  {ok, Ukey} = user_server:match_ouKey(OUkey),
  -%%   TODO Fetch Message info
  -  {ok, ensureMessageJson([{messageid, Messageid}]), Req};
  -
  -handle_query(_, _, Req) ->
  -  {error, "Bad body Request", Req}.
  +  {list, [ensureInboxItemJson(Item) || Item <- InboxList], Req}.
   
   echo(Status, Echo, Req) ->
     cowboy_req:reply(Status, [
  
positive.code: terminate(_Reason, _Req, _State) ->
    ok.
  
  ensureMessageJson(Json) ->
    [
      {messageid, proplists:get_value(messageid, Json)},
      {from, proplists:get_value(<<"from">>, Json)},
      {to, proplists:get_value(<<"to">>, Json)},
  %%     {ukey, proplists:get_value(<<"ukey">>, Json)},
      {date, proplists:get_value(<<"date">>, Json)},
      {subject, proplists:get_value(<<"subject">>, Json)},
      {body, proplists:get_value(<<"body">>, Json)},
      {meta, proplists:get_value(<<"meta">>, Json, [])}
    ].
  
  ensureInboxItemJson(Json) ->
    [
      {messageid, proplists:get_value(messageid, Json)},
  
negative.code:   {ok, Req3, State}.
  
  maybe_response(<<"GET">>, Req) ->
    {OUkey, Req2} = cowboy_req:qs_val(<<"user">>, Req),
    case handle_query(OUkey, Req2) of
      {list, MList, _} ->
        echo(200, jiffy:encode({[
          {status, ok},
          {list, MList}
        ]}), Req);
      _ ->
        echo(400, jiffy:encode({[
          {code, 400},
          {status, error},
          {error, "Uknown Error"}
        ]}), Req)
    end;
  
  maybe_response(_, Req) ->
  