[Mew-dist 09355] Re: 'imls --thread=yes' use In-Reply-to ?

[SAKAI Kiyotaka]

>> In article <19990616141512I.shirai at example.com>, Hideyuki SHIRAI (白井秀行) <shirai at example.com> writes:

> "imls --thread=yes" での thread 表示なのですが、現状では
> "Reference:" のみで thread を構築しているようですが、

正確には、Reference がないときに In-Reply-To を使っています。

> "In-Reply-To:" に Message-ID があったらそちらを優先するように出
> 来ないでしょうか？

テストはしていませんが、このパッチでいけると思います。
ただ、仕様の議論は必要かもしれませんね。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
Index: Scan.pm
===================================================================
RCS file: /home/ksakai/cvsroot/im-116/IM/Scan.pm,v
retrieving revision 1.1.1.1
diff -u -c -r1.1.1.1 Scan.pm
*** Scan.pm	1999/06/08 06:59:39	1.1.1.1
--- Scan.pm	1999/06/16 05:38:55
***************
*** 393,411 ****
      ##
      if ($href->{'in-reply-to'}) {
  	if ($href->{'in-reply-to'} =~ /.*(<[^<]*>)\s*/) {
! 	    $href->{'in-reply-to:'} = $1;
  	} else {
! 	    $href->{'in-reply-to:'} = $href->{'in-reply-to'};
  	}
!     }
!     if ($href->{'references'}) {
  	if ($href->{'references'} =~ /.*(<[^<]*>)/) {
  	    $href->{'references:'} = $1;
  	} else {
  	    $href->{'references:'} = $href->{'references'};
  	}
-     } else {
- 	$href->{'references:'} = $href->{'in-reply-to:'};
      }
  
      ##
--- 393,408 ----
      ##
      if ($href->{'in-reply-to'}) {
  	if ($href->{'in-reply-to'} =~ /.*(<[^<]*>)\s*/) {
! 	    $href->{'references:'} = $1;
  	} else {
! 	    $href->{'references:'} = $href->{'in-reply-to'};
  	}
!     } elsif ($href->{'references'}) {
  	if ($href->{'references'} =~ /.*(<[^<]*>)/) {
  	    $href->{'references:'} = $1;
  	} else {
  	    $href->{'references:'} = $href->{'references'};
  	}
      }
  
      ##