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,_Nr) ->
      A#info.nr < B#info.nr.
  
  strip_re(" "++Subject) ->
      strip_re(Subject);
  strip_re("re:"++Subject) ->
      strip_re(Subject);
  strip_re("aw:"++Subject) ->
      strip_re(Subject);
  strip_re("ang."++Subject) ->
      strip_re(Subject);
  strip_re(Subject) ->
      Subject.
  
  format_summary_line(I) ->
      H = I#info.headers,
  