Applied prev/next patch by Leonard Bouchet

thomascube

2006-05-01 e6f36058e7fc7e3e564e4a9fb2fb3f63b6bf06e2

 program/lib/imap.inc

@@ -41,6 +41,8 @@
      - Avoid stripslahes in iil_Connect()
      - Added patch to iil_SortHeaders() by Richard Green
      - Removed <br> from error messages (better for logging)
      - Added patch to iil_C_Sort() enabling UID SORT commands
      - Added function iil_C_ID2UID()
      - Removed some debuggers (echo ...)

********************************************************/
@@ -627,7 +629,7 @@
   return $time2;
}

function iil_C_Sort(&$conn, $mailbox, $field, $add=''){
function iil_C_Sort(&$conn, $mailbox, $field, $add='', $is_uid=FALSE, $encoding='US-ASCII'){
   /*  Do "SELECT" command */
   if (!iil_C_Select($conn, $mailbox)) return false;
   
@@ -635,10 +637,16 @@
   if ($field=='INTERNALDATE') $field='ARRIVAL';
   $fields = array('ARRIVAL'=>1,'CC'=>1,'DATE'=>1,'FROM'=>1,'SIZE'=>1,'SUBJECT'=>1,'TO'=>1);
   
   if (!$fields[$field]) return false;
   if (!$fields[$field])
     return false;
   
   $is_uid = $is_uid ? 'UID ' : '';
	
   if (!empty($add))
     $add = " $add";

   $fp = $conn->fp;
   $command = 's SORT ('.$field.') US-ASCII ALL '."$add\r\n";
   $command = 's '. $is_uid .'SORT ('.$field.') '.$encoding.' ALL'."$add\r\n";
   $line = $data = '';
   
   if (!fputs($fp, $command)) return false;
@@ -656,7 +664,7 @@
   return $out;
}

function iil_C_FetchHeaderIndex(&$conn, $mailbox, $message_set, $index_field,$normalize=true){
function iil_C_FetchHeaderIndex(&$conn, $mailbox, $message_set, $index_field, $normalize=true){
   global $IMAP_USE_INTERNAL_DATE;
   
   $c=0;
@@ -1570,6 +1578,25 @@
   return false;
}

function iil_C_ID2UID(&$conn, $folder, $id){
   $fp = $conn->fp;
   $result=-1;
   if ($id > 0) {
      if (iil_C_Select($conn, $folder)){
         $key = "FUID";
         if (fputs($fp, "$key FETCH $id (UID)\r\n")){
            do{
               $line=chop(iil_ReadLine($fp, 1024));
               if (eregi("^\* $id FETCH \(UID (.*)\)", $line, $r)){
                  $result = $r[1];
               }
            } while (!preg_match("/^$key/", $line));
         }
      }
   }
   return $result;
}

function iil_C_Search(&$conn, $folder, $criteria){
   $fp = $conn->fp;
   if (iil_C_Select($conn, $folder)){