[Mew-dist 11968] Re: im-133 y2k bugfix (Fw: [Kondara-devel:01032])

[SAITO Tetsuya ( さいとてつや )]

さいとです．

From: Hidetomo Hosono <h at example.com>
Subject: [Mew-dist 11967] Re: im-133 y2k bugfix (Fw: [Kondara-devel:01032])
Date: Sun, 2 Jan 2000 19:07:17 +0900
Message-Id:<20000102191233R.h at example.com>

h> 　ところが、今度は 1970 年未満が 20?? 年扱いされてしまう上、Date: 
h> フィールドのあるメールが 3900 年とかいったミレニアムを軽く越してし
h> まう未来からの手紙になってしまったので、とりあえず 139 未満とすべき
h> かな、ということで、

1970年未満は考慮しなくて良いような気がします．

Mewと西暦2000年問題によると，

3. まだ RFC にはなっていませんが draft-ietf-drums-msg-fmt-07.txt では，
   2 桁の年を処理するときは以下に従えと決められています． 

   ・00 〜 49 には，2000 を加える 
   ・50 〜 99 には，1900 を加える 

と書いているので，

----------------------------------------------------------------------
--- Scan.pm.orig	Sun Jan  2 19:27:54 2000
+++ Scan.pm	Sun Jan  2 19:38:20 2000
@@ -415,6 +415,9 @@
 	my ($gsec, $gmin, $ghour, $gmday, $gmon, $gyear,
 	    $gwday, $gyday, $gisdst) = gmtime((stat($href->{'path'}))[9]);
 
+	$year += 1900;
+	$gyear += 1900;
+
 	my $off = ($hour - $ghour) * 60 + $min - $gmin;
 	if ($year < $gyear) {
 	    $off -= 24 * 60;
@@ -449,7 +452,7 @@
 	$sec = $1;
     }
 
-    if ($year < 70) {
+    if ($year < 50) {
 	$year += 2000;
     } elsif ($year < 100) {
 	$year += 1900;

----------------------------------------------------------------------

じゃないでしょうか．

-- 
ホンマかな，どきどき
さいとてつや (saito at example.com)