[Mew-dist 11901] Re: immv to large size directory

[yamagata at example.com]

山形です。

ウウ…大惨事II?

In message <19991130184758E.kazu at example.com>,
Kazu Yamamoto (山本和彦) wrote

> +     # ad hoc but fast
> +     if (scalar(@messages0) == 1 && $messages0[0] eq 'new') {
> + 	local(*MDIR);
> + 	my($i);
> + 	my $max = "1";
> + 	opendir(MDIR, $folder_dir) || im_die("can't open $folder.\n");
> + 	while (defined($i = readdir(MDIR))) {
> + 	    if ($i =~ /^\d+$/ && $max < $i) {
> + 		$max = $i;
> + 	    }
> + 	}
> + 	closedir(MDIR);
> + 	return "$folder_dir/$max";
> +     }
> + 
>       my @filesinfolder = message_list($folder_dir);

これ、newを返すときにmaxを返すので
実はdstのfolderの既存の最後のmessageに上書きして潰してませんか? (T_T)

-