anchor.diff:  		{done, Result} ->
   		    Result;
   		{cont, NewState} ->
  -		    {get_more, Cont, NewState}
  +		    {get_more, Cont, NewState};
  +		{error, Reason} ->
  +		    {ehtml,
  +		     format_error("Failed to send email. Reason: "++Reason)}
   	    end;
   	{result, Res} ->
   	    case catch sendChunk(Res, State#send{last=true}) of
   		{done, Result} ->
   		    Result;
   		{cont, _} ->
  -		    format_error("Failed to send email.")
  +		    {ehtml,format_error("Failed to send email.")};
  +		{error, Reason} ->
  +		    {ehtml,
  +		     format_error("Failed to send email. Reason: "++Reason)}
   	    end
       end.
   
  
positive.code:     showmail(Session, MailNr, ?RETRYCOUNT).
  
  showmail(Session, MailNr, 0) ->
      format_error("Mailbox locked by other mail session.");
  showmail(Session, MailNr, Count) ->
      MailStr = integer_to_list(MailNr),
      tick_session(Session#session.cookie),
  
negative.code:     list_msg(Session, Refresh, Sort, ?RETRYCOUNT).
  
  list_msg(Session, Refresh, Sort, 0) ->
      {ehtml,format_error("Mailbox locked by other mail process.")};
  list_msg(Session, Refresh, Sort, Count) ->
      tick_session(Session#session.cookie),
      OldList = Session#session.listing,
  