[mew-dist 17988] IM/Pop.pm patch (was: mew-pop.el patch for Mew 1.95b56)

[Tatsuya Kinoshita]

In message [Mew-dist 14036], on Fri, 1 Sep 2000,
Tatsuya Kinoshita wrote:

> Mew 1.95b56 の POP について。
> 
> 下記のような動作をする POP サーバを確認しました。対策用のパッチを
> 投げます。
> 
> * UIDL で「1  <xxx at example.com>」というふうに、数字、ID 間の空白が
>   1文字でなく2文字ある。(match しない)

IMについても、複数のスペースでの区切りを許容するよう、パッチを作り
ました。(imgetでKeep=-1が機能するように)

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- im-141/IM/Pop.pm	Fri Apr 14 16:47:26 2000
+++ im-141-tats20010701/IM/Pop.pm	Sun Jul  1 18:22:39 2001
@@ -142,7 +142,7 @@
 	im_warn("STAT command failed.\n");
 	return -1;
     }
-    @field = split(' ', $resp);
+    @field = split(/\s+/, $resp);
     im_notice("$field[1] message(s) found.\n");
     return $field[1];
 }
@@ -260,7 +260,7 @@
 	s/\r\n$/\n/;
 	last if ($_ =~ /^\.\n$/);
 	im_debug($_) if (&debug('pop'));
-	if (/^(\d+)\s(\S+)$/) {
+	if (/^(\d+)\s+(\S+)$/) {
 	    $$uidlp[$1] = $2;
 	}
     }
@@ -321,7 +321,7 @@
 	    if ($resp !~ /^\+/) {
 		im_warn("LAST command failed.\n");
 	    } else {
-		$resp =~ /\+OK (\d+)/i;
+		$resp =~ /\+OK\s+(\d+)/i;
 		$last = $1;
 	    }
 #	} elsif ($keep_proto eq 'STATUS') {