|
@@ -41,15 +41,16 @@
|
|
|
** Returns some general header information -- FROM, DATE, and SUBJECT
|
|
|
******************************************************************************/
|
|
|
class small_header {
|
|
|
- var $from, $subject, $date, $to;
|
|
|
+ var $from, $subject, $date, $to, $priority;
|
|
|
}
|
|
|
|
|
|
function sqimap_get_small_header ($imap_stream, $id, $sent) {
|
|
|
- fputs ($imap_stream, "a001 FETCH $id BODY.PEEK[HEADER.FIELDS (Date To From Subject)]\r\n");
|
|
|
+ fputs ($imap_stream, "a001 FETCH $id BODY.PEEK[HEADER.FIELDS (Date To From Subject X-Priority)]\r\n");
|
|
|
$read = sqimap_read_data ($imap_stream, "a001", true, $response, $message);
|
|
|
|
|
|
$subject = _("(no subject)");
|
|
|
$from = _("Unknown Sender");
|
|
|
+ $priority = "0";
|
|
|
$g = 0;
|
|
|
for ($i = 0; $i < count($read); $i++) {
|
|
|
if (eregi ("^to:", $read[$i])) {
|
|
@@ -58,6 +59,9 @@
|
|
|
if (eregi ("^from:", $read[$i])) {
|
|
|
$from = sqimap_find_displayable_name(substr($read[$i], 5));
|
|
|
}
|
|
|
+ if (eregi ("^x-priority:", $read[$i])) {
|
|
|
+ $priority = trim(substr($read[$i], 11));
|
|
|
+ }
|
|
|
if (eregi ("^date:", $read[$i])) {
|
|
|
$date = substr($read[$i], 5);
|
|
|
} else if (eregi ("^subject:", $read[$i])) {
|
|
@@ -75,7 +79,7 @@
|
|
|
$header->date = $date;
|
|
|
$header->subject = $subject;
|
|
|
$header->to = $to;
|
|
|
-
|
|
|
+ $header->priority = $priority;
|
|
|
return $header;
|
|
|
}
|
|
|
|