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

[Kazu Yamamoto ( 山本和彦 )]

From: yamagata at example.com
Subject: [Mew-dist 11561] Re: immv to large size directory

> が、しかし、パッチ中の
> 	return $max;
> は、
> 	return "$folder_dir/$max";
> のまちがいであることに気づかず、
> Mailの下が大惨事になっていたため返事が遅れました。(笑)

げ、失礼しました。

> immvの起動時間も積み重なるとわりと馬鹿にならないのでしょうか。

IM の起動は馬鹿みたいに時間がかかります。

> これについてはまだテストしてません。

IM 134 に当てるとするとこれです。

Index: Folder.pm
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/im/IM/Folder.pm,v
retrieving revision 1.45
retrieving revision 1.47
diff -c -r1.45 -r1.47
*** Folder.pm	1999/11/23 22:24:39	1.45
--- Folder.pm	1999/11/30 09:50:51	1.47
***************
*** 277,282 ****
--- 277,297 ----
  	return ();
      }
  
+     # 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);
  
      @messages = @x = ();

--かず