[Mew-dist 1810] subject sort

[Daisuke Kanda]

  かんだ＠つくばです。

  ようやく IM-65 入れました。imsort がある！

  メーリングリストのサブジェクトは、

  [ml-name:number] Re: subject

  とかなっていますが、ソートの時にこれを

  ml-name subject Re number

  と置き換えるパッチです。日本語があるとBase64エンコーディングのやり方で変
だったりしますけれど、とりあえずスレッド毎にソートしてくれます。

-------------- next part --------------
*** /usr/local/bin/imsort	Sat Aug 30 04:19:26 1997
--- imsort	Sat Aug 30 07:11:49 1997
***************
*** 145,151 ****
  
  sub get_field_value ($$$) {
      my ($path, $field, $is_date) = @_;
!     local $_;
      local $/ = '';
  
      if (open(MSG, "< $path")){
--- 145,151 ----
  
  sub get_field_value ($$$) {
      my ($path, $field, $is_date) = @_;
!     local $_, $ml, $num;
      local $/ = '';
  
      if (open(MSG, "< $path")){
***************
*** 156,163 ****
      }
  
      ($_) = /^$field:\s+([^\n]*)/imo;
!     s/^re:\s*//i if (lc($field) eq 'subject');
! 
      if ($is_date){
  	if (/(\d+)\s+($m_rxp)\s+(\d+)\s+(\d+):(\d+)(:(\d+))?\s+($z_rxp)/io){
  	    return sec_from_epoc($3<100?$3+1900:$3, $MONTH{$2}, $1,
--- 156,167 ----
      }
  
      ($_) = /^$field:\s+([^\n]*)/imo;
!     if (lc($field) eq 'subject') {
! 	s/^\[([^\]]*)\]\s*//i;
! 	$1 =~ /^(.*)[:,\s](.*)$/;       $ml=$1; $num=$2;
! 	s/^(re:\s*)(.*)$/$2$1/i;
! 	$_ = $ml . $_ . $num;
!     }
      if ($is_date){
  	if (/(\d+)\s+($m_rxp)\s+(\d+)\s+(\d+):(\d+)(:(\d+))?\s+($z_rxp)/io){
  	    return sec_from_epoc($3<100?$3+1900:$3, $MONTH{$2}, $1,