[Mew-dist 1469] Re: Mew 1.88 & im-55

[Makoto MATSUSHITA ( まつしたまこと )]

Kazu> Mew 1.88 と IM 55 を beta リリースします。

2 つ昆虫採集できた気がするので流させてください．ちゃんと見てないのでこ
んな fix でよいかどうかは全く考えてません‥‥

・ScanSBR は多分このままでは動かない
・IM::Debug はなくなったはずなのに IM::Recipient は使おうとしている

--- IM.in/Recipient.pm.in.dist	Tue Aug  5 15:17:07 1997
+++ IM.in/Recipient.pm.in	Wed Aug  6 16:41:03 1997
@@ -19,7 +19,6 @@
 require Exporter;
 
 use IM::Config;
-use IM::Debug;
 use IM::Address;
 use IM::Alias;
 use IM::Iso2022jp;
--- IM.in/Scan.pm.in.dist	Mon Aug  4 09:24:04 1997
+++ IM.in/Scan.pm.in	Wed Aug  6 16:32:24 1997
@@ -423,7 +423,7 @@
 	##
 	## Call user defined function
 	##
-	&scan_sub(\%Head) if (defined(&scan_sub));
+	&scan_sub($href) if (defined(&scan_sub));
 }
 
 sub disp_msg {
--- dot.im/scan.sbr.dist	Fri Jul 25 15:47:35 1997
+++ dot.im/scan.sbr	Wed Aug  6 16:33:13 1997
@@ -2,15 +2,15 @@
 $symbol_table{'a'} = 'anno:';
 
 sub scan_sub {
-	local (*Header) = shift;
+	local ($href) = shift;
 
-	if ($Header{'replied'} ne '') {
-		$Header{'anno:'} = 'R';
-	} elsif ($Header{'forwarded'} ne '') {
-		$Header{'anno:'} = 'F';
-	} elsif ($Header{'resent'} ne '') {
-		$Header{'anno:'} = 'r';
+	if (${$href}{'replied'} ne '') {
+		${$href}{'anno:'} = 'R';
+	} elsif (${$href}{'forwarded'} ne '') {
+		${$href}{'anno:'} = 'F';
+	} elsif (${$href}{'resent'} ne '') {
+		${$href}{'anno:'} = 'r';
 	} else {
-		$Header{'anno:'} = ' ';
+		${$href}{'anno:'} = ' ';
 	}
 }

-- -
Makoto `MAR_kun' MATSUSHITA