anchor.diff:      {atomic, ok} = mnesia:transaction(QEmailTransFun),        
       case Email#email.queue of
           false -> spawn_send(Id, Recipient, Email, Context, State);
  -        true -> ok
  +        true -> State
       end.
   
   
  
positive.code:     %% notify the system that these emails were failed to be sent
      [ z_notifier:first({email_failed, Id, Recipient}, z_context:depickle(PickledContext)) 
       || {Id, Recipient, PickledContext} <- NotifyList2 ],
   
      %% fetch a batch of messages for sending
      FetchTransFun =
          fun() ->
                  Q = qlc:q([QEmail || QEmail <- mnesia:table(email_queue),
                             QEmail#email_queue.sent == undefined,
                             timer:now_diff(QEmail#email_queue.retry_on, now()) < 0]),
                  qlc:e(Q)
          end,
  
negative.code: %% @doc Send an e-mail.
  handle_cast({send, Id, #email{} = Email, Context}, State) ->
      State1 = update_config(State),
      State2 = case z_utils:is_empty(Email#email.to) of
          true -> State1;
          false -> send_email(Id, Email#email.to, Email, Context, State1)
      end,
      State3 = case z_utils:is_empty(Email#email.cc) of
          true -> State2;
          false -> send_email(<<Id/binary, "+cc">>, Email#email.cc, Email, Context, State2)
      end,
      State4 = case z_utils:is_empty(Email#email.bcc) of
          true -> State3;
          false -> send_email(<<Id/binary, "+bcc">>, Email#email.bcc, Email, Context, State3)
      end,
      {noreply, State4};
  
  %%@ doc Handle a bounced email
  handle_cast({bounced, Peer, BounceEmail}, State) ->
  