[Mew-dist 1604] Re: qmail patch of LocalMbox.pm

[Motonori Nakamura]

>>>>> On Sun, 24 Aug 1997 15:37:32 +0900, Motonori Nakamura <motonori at example.com> said:

|> 若宮さんの imap パッチもマージしました。

おっと、clean up した時に削りすぎてしまいました。
追加パッチです。

- motonori

--- IM.in/Imap.pm.in-	Sun Aug 24 15:43:03 1997
+++ IM.in/Imap.pm.in	Sun Aug 24 15:48:17 1997
@@ -603,8 +603,9 @@
 	while (<IMAPd>) {
 	    $len -= length;
 	    s/\r?\n$/\n/;
-	    im_warn("$_") if (&debug("imap"));
+	    im_warn($_) if (&debug('imap'));
 	    push(@hdr, $_);
+	    last if ($len <= 0);
 	}
 	$resp = &next_response(\*IMAPd);
 	return -1 if ($resp !~ /^\)/);
@@ -626,7 +627,7 @@
 	$resp = &next_response(\*IMAPd);
     }
     if ($resp !~ /^im$seq OK/) {
-	im_warn("FETCH command failed.\n") if (&debug("imap") || &verbose);
+	im_warn("FETCH command failed.\n");
 	return -1;
     }
     return 0;