anchor.diff:  	{error, Reason} ->
   	    case string:str(lowercase(Reason), "lock") of
   		0 ->
  -		    {ehtml,format_error(Reason)};
  +		    {ehtml,format_error(to_string(Reason))};
   		N ->
   		    sleep(?RETRYTIMEOUT),
   		    list_msg(Session, Refresh, Sort, Count-1)
  
positive.code: 		    {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
  
negative.code: 	    {error, Reason} ->
  		case string:str(lowercase(Reason), "lock") of
  		    0 ->
  			format_error(to_string(Reason));
  		    N ->
  			sleep(?RETRYTIMEOUT),
  			showmail(Session, MailNr, Count-1)
  