anchor.diff:      SubjectFmt = lists:flatten(decode(Value)),
       H#mail{subject = Value,
   	   subject_fmt = SubjectFmt,
  -	   subject_fmt_lc = lowercase(SubjectFmt)};
  +	   subject_fmt_lc = strip_re(lowercase(SubjectFmt))};
   add_header("date", Value, H) ->
       DatePst = parse_date(Value),
       H#mail{date = Value,
  
positive.code: top(I) -> {"TOP "++integer_to_list(I)++" 0", ml}.
  ret(I) -> {"RETR "++integer_to_list(I), sized}.
  
  del(I) -> {"DELE "++atom_to_list(I), sl}.
  
  
  to_int(Str) ->
  
negative.code: summary_compare(A,B,subject) ->
      Ha = A#info.headers,
      Hb = B#info.headers,
      Sa = Ha#mail.subject_fmt_lc,
      Sb = Hb#mail.subject_fmt_lc,
      if Sa < Sb -> true;
         Sa > Sb -> false;
         true -> summary_compare(A,B,date)
      end;
  summary_compare(A,B,date) ->
      Ha = A#info.headers,
  