anchor.diff:                                            SM,
                                             Opt)
           end,
  -    NewState = try_to_send_message(MakeFun, State, From),
  +    NewState = try_to_send_message(ucp_syntax:get_value(trn, Opt), MakeFun, State, From),
       {noreply, NewState, get_timeout(NewState)};
   
   %%% TODO - copy and paste of submit_sm
  
positive.code: %%% IMPORTANT: this function have to call gen_server:reply !!
  %%%            if the From field is not 'undefined'
  %%% ----------------------------------------------------------
  
  try_to_send_message(MakeFun, State, From) ->
      format("Try to send message = ~p ~p~n", [MakeFun, State]),
  
      %% Build the login message and send it (to the SMSC).
  
      Trn = State#st.trn,
      Rtimers = State#st.result_timers,
  
      case lists:keymember(Trn, ?TRN_POS, Rtimers) of
  
negative.code:                                             SM,
                                              Opt)
          end,
      NewState = try_to_send_message(ucp_syntax:get_value(trn, Opt), MakeFun, State, From),
      {noreply, NewState, get_timeout(NewState)};
  
  %%% TODO - copy and paste of submit_sm
  