anchor.diff:  summary_compare(A,B,subject) ->
       Ha = A#info.headers,
       Hb = B#info.headers,
  -    case summary_compare_subject(Ha#mail.subject_fmt_lc,
  -				 Hb#mail.subject_fmt_lc) of
  -	true  ->  true;
  -	eq    ->  summary_compare(A,B,date);
  -	false ->  false
  +    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,
  
positive.code:     SubjectFmt = lists:flatten(decode(Value)),
      H#mail{subject = Value,
  	   subject_fmt = SubjectFmt,
  	   subject_fmt_lc = lowercase(SubjectFmt)};
  add_header("date", Value, H) ->
      DatePst = parse_date(Value),
      H#mail{date = Value,
  
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,
  