[Mew-dist 10271] Re: IMAP4

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 10268] IMAP4
Message-ID: <19990820143701A.kazu at example.com>
Date: Fri, 20 Aug 1999 14:37:55 +0900

kazu> 白井さん、

白井です。よばれてしまいました。(忙しいのにぃ :-)

kazu> 歌代さんに教えてもらったコードがパッチになって流れてくると嬉しいです。

P.S.
遊びで、以下のように Content-Description: を書き換えたら、一行に
つながって 118桁になっているのですがいいのですか？

# RFC 調べないで話してます。(__)

-------------- next part --------------
--- Imap.pm.orig	Fri Aug 20 14:43:09 1999
+++ Imap.pm	Fri Aug 20 14:17:02 1999
@@ -702,7 +702,7 @@
     $set = &imap_range2set($HANDLE, @ranges);
     $seq = $ImapSeq++;
     $resp = &send_command($HANDLE, "im$seq UID SEARCH UID $set", '');
-    if ($resp =~ /^\* SEARCH (\d+( +\d+)*)/i) {
+    if ($resp =~ /^\* SEARCH (\d[ \d]*)/i) {
 	@uids = split(' ', $1);
     } else {
 	im_warn("UID SEARCH command failed.\n");
@@ -748,7 +748,7 @@
 
     $seq = $ImapSeq++;
     $resp = &send_command($HANDLE, "im$seq UID SEARCH 1:*", '');
-    if ($resp =~ /^\* SEARCH (\d+( +\d+)*)/i) {
+    if ($resp =~ /^\* SEARCH (\d[ \d]*)/i) {
 	@uids = split(' ', $1);
     } else {
 	im_warn("UID SEARCH command failed.\n");