$id2index[$msg_list[$i]] = $i;
}
- $query = "$sid FETCH $msgs_str BODY.PEEK[HEADER.FIELDS (Date To From Cc Subject Message-Id X-Priority Content-Type)]\r\n";
+ $query = "$sid FETCH $msgs_str BODY.PEEK[HEADER.FIELDS (Date To From Cc Subject Message-Id X-Priority Content-Type References In-Reply-To)]\r\n";
fputs ($imap_stream, $query);
$readin_list = sqimap_read_data_list($imap_stream, $sid, true, $response, $message);
$date = "";
$type[0] = "";
$type[1] = "";
+ $ref = "";
+ $inreplyto = "";
$read = $read_list[$msgi];
foreach ($read as $read_part) {
if (!isset($type[1])) {
$type[1] = '';
}
+ } else if (eregi ("^references:(.*)$", $read_part, $regs)) {
+ $ref = $regs[1];
+ } else if (eregi ("^in-reply-to:(.*)$", $read_part, $regs)) {
+ $inreplyto = $regs[1];
}
}
$internaldate = getPref($data_dir, $username, 'internal_date_sort');
$header->size = $size;
$header->type0 = $type[0];
$header->type1 = $type[1];
+ $header->references = $ref;
+ $header->inreplyto = $inreplyto;
$result[] = $header;
}