anchor.diff:      showmail(Session, MailNr, ?RETRYCOUNT).
   
   showmail(Session, MailNr, 0) ->
  -    format_error("Mailbox locked by other mail session.");
  +    {ehtml,format_error("Mailbox locked by other mail session.")} ;
   showmail(Session, MailNr, Count) ->
       MailStr = integer_to_list(MailNr),
       tick_session(Session#session.cookie),
  
positive.code:     list_msg(Session, Refresh, Sort, ?RETRYCOUNT).
  
  list_msg(Session, Refresh, Sort, 0) ->
      format_error("Mailbox locked by other mail process.");
  list_msg(Session, Refresh, Sort, Count) ->
      tick_session(Session#session.cookie),
      OldList = Session#session.listing,
  
negative.code: 	{error, Reason} ->
  	    case string:str(lowercase(Reason), "lock") of
  		0 ->
  		    {ehtml,format_error(Reason)};
  		N ->
  		    sleep(?RETRYTIMEOUT),
  		    list_msg(Session, Refresh, Sort, Count-1)
  