anchor.diff:                             ,CdrElement).
   
   kz_vmessage_download_link(VMBoxId, MediaId, Context) ->
  -    API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", ?TO_BIN(VMBoxId)/binary,
  +    API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", VMBoxId/binary,
                      ?MESSAGES/binary, "/", ?TO_BIN(MediaId)/binary, ?RAW/binary, <<"?">>/binary,
                      ?AUTH_TOKEN/binary, (z_context:get_session(kazoo_auth_token, Context))/binary>>,
       <<(m_config:get_value('mod_kazoo', 'kazoo_crossbar_url', Context))/binary, API_String/binary>>. 
  
positive.code:     Messages = [update_folder1(Message, Folder, MediaId, modkazoo_util:get_value(<<"media_id">>, Message))
                  || Message <- modkazoo_util:get_value(<<"messages">>, CurrVMBox, [])],
      NewVMBox = modkazoo_util:set_value(<<"messages">>, Messages, CurrVMBox),
      API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", ?TO_BIN(VMBoxId)/binary>>,
      crossbar_account_request('post', API_String, {[{<<"data">>, NewVMBox}]}, Context).
  
  update_folder1(Message, Folder, MediaId, MediaId) ->
  
negative.code:     end.
  
  kz_vmbox(Verb, VMBoxId, Context) ->
      API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", VMBoxId/binary>>,
      crossbar_account_request(Verb, API_String, [], Context).
  
  vmbox_messages(Verb, VMBoxId, Context) ->
      API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", VMBoxId/binary, ?MESSAGES/binary>>,
      crossbar_account_request(Verb, API_String, [], Context).
  
  vmbox_message(Verb, MessageId, VMBoxId, Context) ->
      API_String = <<?V2/binary, ?ACCOUNTS(Context)/binary, ?VMBOXES/binary, "/", VMBoxId/binary
                    ,?MESSAGES/binary, "/", ?TO_BIN(MessageId)/binary>>,
      crossbar_account_request(Verb, API_String, [], Context).
  
  