anchor.diff:  
   %% @doc Fetch a new batch of queued e-mails. Deletes failed messages.
   poll_queued(State) ->
  +
       %% delete sent messages
       DelTransFun = fun() -> 
                             DelQuery = qlc:q([QEmail || QEmail <- mnesia:table(email_queue),
  
positive.code:                         [{attributes, record_info(fields, email_queue)}]),
      timer:send_interval(5000, poll),
      State = #state{},
      {ok, State}.
      
  
  
negative.code:                             SpamStatus = spamcheck(EncodedMail, Addr, Port),
                              z_notifier:first({email_spamstatus, Id, SpamStatus}, Context)
                      end
              end
          end,
      SenderPid = spawn_link(F),
      State#state{sending=[{Id,SenderPid}|State#state.sending]}.
  
  
  encode_email(_Id, #email{raw=Raw}, _VERP, _From, _Context) when is_list(Raw); is_binary(Raw) ->
  