[Mew-dist 17564] immknmz patch for .mew-folder-list

[Masahiro Tsuge]

はじめまして、柘植と申します。
mew にはいつもお世話になっております。

immknmz を使用していて、新規のフォルダに対するインデックスが作成されな
いので、mew の 00changes を見たところ 1.95b53 から "~/Mail/.folders"
が使用されなくなっている事に気付きました。
現在 mew で使用されている ".mew-folder-list" を参照する様に変更しまし
たのでパッチを送付します。
私はメーリングリストに参加しておらず、現在アーカイブの参照も出来ない状
態なので、もし、既にパッチが紹介されているのであれば、御容赦下さい。

以上
-------------- next part --------------
diff -u im-141/immknmz.in.orig im-141/immknmz.in
--- im-141/immknmz.in.orig	Fri Apr 14 16:47:24 2000
+++ im-141/immknmz.in	Tue May 29 17:56:04 2001
@@ -69,7 +69,9 @@
 if ( ! -f $incfile ){
     $incfile = "";
 }
-my $folderspath = $mailpath."/.folders";
+my $folderspath = $mailpath."/.mew-folder-list";
+my $msgfolders;
+my @msgfolders;;
 my $msgfolder;
 my $msgdir;
 my $flag;
@@ -95,8 +97,19 @@
 
 im_open(\*FILE, "<$folderspath" );
 while ( <FILE> ){
+  chomp;
+  s/\s*;.*$//;
+  s/^\s+//;
+  s/\s+$//;
+  $msgfolders .= " " . $_;
+}
+$msgfolders =~ s/^[(\s]+"//;
+$msgfolders =~ s/"[)\s]+$//;
+ at example.com = split(/[\s"]+/, $msgfolders);
+close(FILE);
+for ( @msgfolders ){
     s/\r$// if &win95p() || &os2p();
-    chomp;
+    s,/+$,,;
     $msgfolder = $_;
     $flag = 0;
     foreach ( @ignorefolders ){
@@ -192,7 +205,6 @@
         rename("$timestamp.new", "$timestamp");
     }
 }
-close(FILE);
 
 # immknmz ends here.
 ### Local Variables: