[Mew-dist 1496] im-55 IMAP access

[Keisuke Mori]

----Next_Part(Fri_Aug_08_15:26:22_1997_955)--
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit

もりと申します。

im-55 (+ patch1) での IMAP アクセスまわりで、いくつか気がついた
点がありますので、その報告と修正パッチです。

(1) imget すると、
	im_info("Getting new messages from $host into $dst....\n");
    のメッセージが出たところで止まってしまう。
(2) imls でリモートフォルダが空のとき
	im_warn("no messages in $_\n");
    のメッセージで生パスワードが表示されてしまう。
(3) imcat でIMAPフォルダ指定(%folder)が動かない。
(4) IMAP フォルダ名(%folder)に / が含まれるフォルダが指定できない。

# ところで、UNIX(Solaris2.4)上でも GetPass.pm でパスワードがエコー
# バックされちゃうんですが、これってウチの環境が悪いだけっすか?

--
	Keisuke Mori / NTT Software Corp. California Branch
	E-Mail: ksk at example.com

----Next_Part(Fri_Aug_08_15:26:22_1997_955)--
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-Description: im-55p1.patch

--- IM.in/Imap.pm.in.org	Tue Aug  5 18:51:26 1997
+++ IM.in/Imap.pm.in	Fri Aug  8 13:52:14 1997
@@ -495,7 +495,7 @@
 	if ($msgs > 0) {
 	    im_info("Getting new messages from $host into $dst....\n");
 	    for ($i = 1; $i <= $msgs; $i++) {
-		(my $rc, local *Message) = &imap_get($num);
+		(my $rc, local *Message) = &imap_get($i);
 		return -1 if ($rc < 0);
 		unless (&store_message(*Message, $dst)) {
 		    return -1;
@@ -553,7 +553,7 @@
     $user = (getpwuid($<))[0] unless ($user);
 
     while ($spec ne '') {
-	if ($spec =~ /^%([^%:\/\@]+)(.*)/) {
+	if ($spec =~ /^%([^%:\@]+)(.*)/) {
 	    $folder = $1;
 	} elsif ($spec =~ /^:([^%:\/\@]+)(.*)/) {
 	    $user = $1;
--- imcat.in.org	Sun Aug  3 17:24:05 1997
+++ imcat.in	Fri Aug  8 13:47:51 1997
@@ -156,7 +156,7 @@
 #		close(OUT);
 #		wait;
 #	}
-} elsif ($opt_src =~ /^\%(.*)/) {
+} elsif ($opt_src =~ /^(%.*)/) {
 	# IMAP folder (%folder[:[user[/auth]]@server])
 	require IM::Imap && import IM::Imap;
 	require IM::GetPass && import IM::GetPass;
--- imls.in.org	Sun Aug  3 20:15:49 1997
+++ imls.in	Fri Aug  8 13:47:04 1997
@@ -110,7 +110,7 @@
         &disp_thread ($START, "");
     }
     if ($scan_count == 0) {
-	im_warn("no messages in $_\n");
+	im_warn("no messages in $opt_src[0]\n");
     }
     exit $EXIT_SUCCESS;
 }

----Next_Part(Fri_Aug_08_15:26:22_1997_955)----