[Mew-dist 10101] Re: Mew 1.94b49 + IM 120

[SAKAI Kiyotaka]

>> In article <19990816170703L.kazu at example.com>, Kazu Yamamoto (山本和彦) <kazu at example.com> writes:

> 酒井さんが修正する前に getpass() 回りを変更していたので、酒井さんのパッ
> チは反映できていません。IM 120 をもとに、気に入らないところを直して下
> さい。

Good です。

あと、この2点だけお願いします。

前者は immv で認証に失敗したときに

  immv: AUTHENTICATE LOGIN failedimmv: ERROR: invalid password for imap/auth:ksakai/auth at example.com

と改行が挿入されずに表示される問題を解決するもので、後者は immv がそも
そも IMAP の folder に対して正しく動作しない問題を解決するものです。
-- 
酒井 清隆 (E-mail: ksakai at example.com)
-------------- next part --------------
Index: Imap.pm
===================================================================
RCS file: /home/ksakai/cvsroot/im-120/IM/Imap.pm,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 Imap.pm
--- Imap.pm	1999/08/16 08:18:47	1.1.1.1
+++ Imap.pm	1999/08/16 08:55:55
@@ -125,7 +125,7 @@
     if ($resp !~ /^im$seq OK/) {
 	$errmsg = $resp;
 	$errmsg =~ s/^im$seq\s+NO\s*//i;
-	im_warn($errmsg);
+	im_warn("$errmsg\n");
 	return -1
     }
     return -1 if ($failed);
@@ -720,7 +720,7 @@
     ($folder, $auth, $user, $host) = imap_spec($folder);
     $folder =~ s/^/%/;
 
-    return "$folder:$user/$auth\@$host"; # may be appended '/port'
+    return "$folder/$auth:$user\@$host"; # may be appended '/port'
 }
 
 sub imap_folder_name ($) {