- fix FETCH reply parsing (#1485891)

alecpl

2009-06-02 07f0b943380210a6366c62728927314ec10fcfb6

- fix FETCH reply parsing (#1485891)

 program/lib/imap.inc

@@ -1629,7 +1629,7 @@
                }

                // the rest of the result
                preg_match('/ BODY\[HEADER.FIELDS \(.*\)\]\s*(.*)/s', $line, $m);
                preg_match('/ BODY\[HEADER.FIELDS \(.*?\)\]\s*(.*)$/s', $line, $m);
                $reslines = explode("\n", trim($m[1], '"'));
                // re-parse (see below)
                foreach ($reslines as $line) {
@@ -1686,7 +1686,7 @@
                        $headers[$k] = '';
                    }
                }
	

                // create array with header field:data
                while ( list($lines_key, $str) = each($lines) ) {
                    list($field, $string) = iil_SplitHeaderLine($str);