- re-fix last commmit

alecpl

2009-04-08 157fcb81eab3125ac1070f1b03898ad4b3e0f1c1

- re-fix last commmit

 program/lib/imap.inc

@@ -2446,9 +2446,9 @@
            $line = iil_ReadLine($fp, 1000);
            $line = iil_MultLine($fp, $line);

        if (preg_match('/BODY\.PEEK\[([0-9\.]+)\.MIME\]/', $line, $matches)) {
        if (preg_match('/BODY\[([0-9\.]+)\.MIME\]/', $line, $matches)) {
            $idx = $matches[1];
            $result[$idx] = preg_replace('/^(\* '.$id.' FETCH \()?\s*BODY\.PEEK\['.$idx.'\.MIME\]\s+/', '', $line);
            $result[$idx] = preg_replace('/^(\* '.$id.' FETCH \()?\s*BODY\['.$idx.'\.MIME\]\s+/', '', $line);
            $result[$idx] = trim($result[$idx], '"');
                $result[$idx] = rtrim($result[$idx], "\t\r\n\0\x0B");
            }