[Mew-dist 2081] Re: im-70

[若宮賢二]

// "Kazu" = Kazu at example.com (Kazu Yamamoto (山本和彦)) said:

Kazu> im-70.tar.gz を ftp.aist-nara.ac.jp/pub/elisp/Mew/beta に置きま
Kazu> した。問題がなければ、明日 Mew 1.91 と一緒にリリースします。
Kazu> (1) 致命的なバグでない限り直しません。エンバグする方が恐いので。

  まだ IMAP 自体の重要度が低いので致命的ではないかもしれませんが;-)、
  一応ご報告を。IMAP フォルダを imls した時、必ず最後に "imls: no
  messages in…" のメッセージが表示されてしまいます。

  Imap.pm の imap_scan_folder の中で

    $main::scan_count++; 

  ということをしているのですが、imls 側の $scan_count が my されるよう
  になったせいか、このインクリメントが効いていないみたいなのです。my 
  を取っちゃうと strict 的に問題ですし、どうしたらよいか私にはいい案が
  浮かびません。

  それと、imls でフォルダを --src=%inbox とだけ指定した時、% まで含め
  て IMAP サーバへ渡っているようなので、それを防ぐパッチを付けます。

// Kenji    | mailto:wkenji at example.com (office)
// Wakamiya | mailto:wkenji at example.com (private)
-------------- next part --------------
--- imls.in.orig	Mon Sep 15 11:30:17 1997
+++ imls.in	Wed Sep 17 15:48:56 1997
@@ -451,6 +451,7 @@
 
     if ($folder !~ /[:\@]/) {
 	(my $dummy, $auth, $user, $host) = imap_spec('');
+	$folder =~ s/^%//;
     } else {
 	($folder, $auth, $user, $host) = imap_spec($folder);
     }