[Mew-dist 1307] im-46 (imget truncate bug ?)

[nagare at example.com]

どうもみなさんはじめまして。
流＠オムロンソフトといいます。

im-46 の imget を使ってて、truncate option が、うまく動かないので
bug かなっと思うので、patch をつけておきます。
＃間違ってたらすいません。_o_
-------------- next part --------------
diff -Nru im-46.orig/IM.in/Pop.pm.in im-46/IM.in/Pop.pm.in
--- im-46.orig/IM.in/Pop.pm.in	Mon Jul 21 16:46:08 1997
+++ im-46/IM.in/Pop.pm.in	Wed Jul 23 19:01:55 1997
@@ -404,7 +404,7 @@
 	}
 	return -1 if (&pop_retr($i, $dst, $noscan) < 0);
 	$got++;
-	next if ($main::opt_notruncate);
+	next if ($main::opt_truncate);
 	next if ($preserve);
 	return -1 if (&pop_dele($i) < 0);
     }