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

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 09361] Re: 'imls --thread=yes' use In-Reply-to ?
Message-ID: <19990616150934G.shirai at example.com>
Date: Wed, 16 Jun 1999 15:10:11 +0900

酒井> > "In-Reply-To:" に Message-ID があったらそちらを優先するように出
酒井> > 来ないでしょうか？
酒井> 
酒井> テストはしていませんが、このパッチでいけると思います。

白井> とりあえず、動作確認しました。

## と思ったんですが ^^;;;

"In-Reply-To:" はあるけど、そのなかに Message-ID が埋め込まれて
いないと thread が切れてしまいます。

例えば、今日の Mew-dist でいうと、
Subject: [Mew-dist 09356] Re: つまらない質問ですいませんが教えて下さい
です。

酒井さんのパッチのあとに以下のパッチをあてると OK のようです。

-------------- next part --------------
--- Scan.pm.orig	Wed Jun 16 14:59:15 1999
+++ Scan.pm	Wed Jun 16 17:44:28 1999
@@ -391,12 +391,9 @@
     ##
     ## Thread related
     ##
-    if ($href->{'in-reply-to'}) {
-	if ($href->{'in-reply-to'} =~ /.*(<[^<]*>)\s*/) {
-	    $href->{'references:'} = $1;
-	} else {
-	    $href->{'references:'} = $href->{'in-reply-to'};
-	}
+    if (($href->{'in-reply-to'})
+	&& ($href->{'in-reply-to'} =~ /.*(<[^<]*>)\s*/))  {
+	$href->{'references:'} = $1;
     } elsif ($href->{'references'}) {
 	if ($href->{'references'} =~ /.*(<[^<]*>)/) {
 	    $href->{'references:'} = $1;
-------------- next part --------------

-- 
白井秀行＠じゃ、contrib 入り目指しましょうかぁ。^^;;;