[Mew-dist 2400] Re: prot 番号

[Motonori Nakamura]

>>>>> On Tue, 07 Oct 1997 23:12:00 +0900 (JST), NISHIO Sanae <nishio at example.com> said:

nishio> Imget で、pop3 のポート番号を指定したいのですが、imgetでそうい
nishio> うことは出来るのでしょうか？

ああ、やっぱり pop_spec() の仕様を見直さないといけないわ。

とりあえず、これでどうでしょ?

- motonori

--- IM.in/Pop.pm.in-	Wed Oct  8 06:50:54 1997
+++ IM.in/Pop.pm.in	Wed Oct  8 06:47:52 1997
@@ -547,7 +547,7 @@
     return $msgs;
 }
 
-# POP folder (--src=pop[:user][/auth][@server])
+# POP folder (--src=pop[:user][/auth][@server[/port]])
 sub pop_spec ($) {
     my $spec = shift;
 
@@ -573,7 +573,7 @@
 	    $user = $1;
 	} elsif ($spec =~ /^\/([^:\/\@]+)(.*)/) {
 	    $auth = $1;
-	} elsif ($spec =~ /^\@([^:\/\@]+)(.*)/) {
+	} elsif ($spec =~ /^\@([^\@]+)(.*)/) {
 	    $host = $1;
 	} else {
 	    im_warn("invalid pop spec: $spec\n");