On March 7, 2005 at 4:10PM +0100,
Nikolaus (at rath.org) wrote:
> imget: <<< im103 UID FETCH 9 RFC822
> imget: >>> * 1 FETCH (FLAGS (\Recent \Seen) UID 9 RFC822 {594}
> imget: UID FETCH command failed.Thank you for your report. Please apply the attathed patch to /usr/share/perl5/IM/Imap.pm, and try again. If it works, I'll apply it in the next release. -- Tatsuya Kinoshita
--- IM/Imap.pm.orig
+++ IM/Imap.pm
@@ -192,7 +192,7 @@
im_notice("getting message $num.\n");
my $resp = &send_command($HANDLE, "im$seq UID FETCH $num RFC822", '');
my $failed = 0;
- if ($resp =~ /^\* \d+ FETCH \((UID $num )?RFC822 \{(\d+)\}/i) {
+ if ($resp =~ /^\* \d+ FETCH \(.*(UID $num )?RFC822 \{(\d+)\}/i) {
my $size = $2;
alarm(imap_timeout()) unless win95p();
while (<$HANDLE>) {
pgpQr9c1XWTXz.pgp
Description: PGP signature
