diff options
| author | fukachan <fukachan> | 2010-02-28 06:37:24 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2010-02-28 06:37:24 +0000 |
| commit | e314db340e6b4afc2dc9b9a6745dea18f3cc0844 (patch) | |
| tree | 8aa695a4228ff273f17d123f540d22d901492cd3 /img/lib/IM/Imap.pm | |
| parent | ddc1ed19d3f9d8d8840bea932174a68749550330 (diff) | |
| download | fml8-im-150.tar.gz fml8-im-150.tar.bz2 fml8-im-150.zip | |
import im-150im-150
Diffstat (limited to 'img/lib/IM/Imap.pm')
| -rw-r--r-- | img/lib/IM/Imap.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/img/lib/IM/Imap.pm b/img/lib/IM/Imap.pm index 5ceedfce..1e236833 100644 --- a/img/lib/IM/Imap.pm +++ b/img/lib/IM/Imap.pm @@ -5,10 +5,10 @@ ### ### Author: Internet Message Group <img@mew.org> ### Created: Apr 23, 1997 -### Revised: Jul 4, 2004 +### Revised: Apr 23, 2007 ### -my $PM_VERSION = "IM::Imap.pm version 20031028(IM146)"; +my $PM_VERSION = "IM::Imap.pm version 20100215(IM150)"; package IM::Imap; require 5.003; @@ -192,7 +192,7 @@ sub imap_get($$) { 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 \((.*)RFC822 \{(\d+)\}/i) { my $size = $2; alarm(imap_timeout()) unless win95p(); while (<$HANDLE>) { @@ -234,7 +234,7 @@ sub imap_head($$) { my(%head); undef %head; if ($resp =~ - /^\* \d+ FETCH \((UID $num )?RFC822.SIZE (\d+) RFC822.HEADER \{(\d+)\}/i) { + /^\* \d+ FETCH \((.*)RFC822\.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) { my($size, $len) = ($2, $3); my $field = ''; alarm(imap_timeout()) unless win95p(); @@ -290,7 +290,7 @@ sub imap_from($$) { # "im$seq UID FETCH $num RFC822.HEADER.LINES (From Date Subject)", ''); my $resp = &send_command($HANDLE, "im$seq UID FETCH $num RFC822.HEADER.LINES (From)", ''); - if ($resp =~ /^\* \d+ FETCH \((UID $num )?RFC822.* \{(\d+)\}/i) { + if ($resp =~ /^\* \d+ FETCH \((.*)RFC822.* \{(\d+)\}/i) { my $size = $2; my $found = 0; my $f; @@ -783,7 +783,7 @@ sub imap_scan_folder($$@) { my $resp = &send_command($HANDLE, "im$seq UID FETCH $msgset (RFC822.SIZE RFC822.HEADER)", ''); while ($resp =~ - /^\* \d+ FETCH \((UID (\d+) )?RFC822.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) { + /^\* \d+ FETCH \([^0-9]*(UID (\d+) )?[^0-9]*RFC822\.SIZE (\d+) RFC822\.HEADER \{(\d+)\}/i) { ($uid, $size, $len) = ($2, $3, $4); my @hdr; alarm(imap_timeout()) unless win95p(); |