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: summary_compare(A,B,_Nr) ->
      A#info.nr < B#info.nr.
  
  summary_compare_subject(A,B) ->
      PrefA = lowercase(string:substr(A,1,3)),
      PrefB = lowercase(string:substr(B,1,3)),
      if PrefA == "re:" ->
  	    summary_compare_subject(string:strip(string:substr(A,4)), B);
         PrefB == "re:" ->
  	    summary_compare_subject(A,string:strip(string:substr(B,4)));
         A == B ->
  	    eq;
         true ->
  	    A < B
      end.
  
  format_summary_line(I) ->
      H = I#info.headers,
  
negative.code:     SubjectFmt = lists:flatten(decode(Value)),
      H#mail{subject = Value,
  	   subject_fmt = SubjectFmt,
  	   subject_fmt_lc = strip_re(lowercase(SubjectFmt))};
  add_header("date", Value, H) ->
      DatePst = parse_date(Value),
      H#mail{date = Value,
  