- /******************************************************************************
- ** Formats a mailbox into 4 parts for the $boxes array
- **
- ** The four parts are:
- **
- ** raw - Raw LIST/LSUB response from the IMAP server
- ** formatted - nicely formatted folder name
- ** unformatted - unformatted, but with delimiter at end removed
- ** unformatted-dm - folder name as it appears in raw response
- ** unformatted-disp - unformatted without $folder_prefix
- **
- ******************************************************************************/
- function sqimap_mailbox_parse ($line, $line_lsub, $dm) {
- global $folder_prefix;
-
- // Process each folder line
- for ($g=0; $g < count($line); $g++) {
-
- // Store the raw IMAP reply
- if (isset($line[$g]))
- $boxes[$g]["raw"] = $line[$g];
- else
- $boxes[$g]["raw"] = "";
-
-
- // Count number of delimiters ($dm) in folder name
- $mailbox = trim($line_lsub[$g]);
- $dm_count = countCharInString($mailbox, $dm);
- if (substr($mailbox, -1) == $dm)
- $dm_count--; // If name ends in delimiter - decrement count by one
-
- // Format folder name, but only if it's a INBOX.* or have
- // a parent.
- $boxesbyname[$mailbox] = $g;
- $parentfolder = readMailboxParent($mailbox, $dm);
- if((strtolower(substr($mailbox, 0, 5)) == "inbox") ||
- (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
- (isset($boxesbyname[$parentfolder]) && (strlen($parentfolder) > 0) ) ) {
- $indent = $dm_count - (countCharInString($folder_prefix, $dm));
- if ($indent > 0)
- $boxes[$g]["formatted"] = str_repeat(" ", $indent);
- else
- $boxes[$g]["formatted"] = '';
- $boxes[$g]["formatted"] .= readShortMailboxName($mailbox, $dm);
- } else {
- $boxes[$g]["formatted"] = $mailbox;
- }
-
- $boxes[$g]['unformatted-dm'] = $mailbox;
- if (substr($mailbox, -1) == $dm)
+ // Got to grab this out of prefs, since it isn't saved from mailbox_view.php
+ if ($allow_thread_sort) {
+ $thread_sort_messages = getPref($data_dir, $username, "thread_$mailbox",0);
+ }
+
+ for ($i = 0; $i < count($msort); $i++) {
+ if ($msgs[$i]['ID'] == $message_id) {
+ break;
+ }
+ }
+
+ if ( isset($msgs) ) {
+ unset($msgs[$i]);
+ $msgs = array_values($msgs);
+ sqsession_register($msgs, 'msgs');
+ }
+
+ if ( isset($msort) ) {
+ unset($msort[$i]);
+ $msort = array_values($msort);
+ sqsession_register($msort, 'msort');
+ }
+
+ if ($auto_expunge) {
+ $cnt = sqimap_mailbox_expunge($imapConnection, $mailbox, true);
+ }
+
+ // And after all that mucking around, update the sort list!
+ // Remind me why the hell we need those two arrays again?!
+ if ( $allow_thread_sort && $thread_sort_messages ) {
+ $server_sort_array = get_thread_sort($imapConnection);
+ } elseif ( $allow_server_sort ) {
+ $server_sort_array = sqimap_get_sort_order($imapConnection, $sort, $mbx_response);
+ } else {
+ $server_sort_array = sqimap_get_php_sort_order($imapConnection, $mbx_response);
+ }
+ return $cnt;
+}
+
+/**
+ * Checks whether or not the specified mailbox exists
+ */
+function sqimap_mailbox_exists ($imap_stream, $mailbox) {
+ if (!isset($mailbox) || empty($mailbox)) {
+ return false;
+ }
+ $mbx = sqimap_run_command($imap_stream, 'LIST "" ' . sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ return isset($mbx[0]);
+}
+
+/**
+ * Selects a mailbox
+ */
+function sqimap_mailbox_select ($imap_stream, $mailbox) {
+ global $auto_expunge;
+
+ if ($mailbox == 'None') {
+ return;
+ }
+
+ $read = sqimap_run_command($imap_stream, 'SELECT ' . sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ $result = array();
+ for ($i = 0, $cnt = count($read); $i < $cnt; $i++) {
+ if (preg_match('/^\*\s+OK\s\[(\w+)\s(\w+)\]/',$read[$i], $regs)) {
+ $result[strtoupper($regs[1])] = $regs[2];
+ } else if (preg_match('/^\*\s([0-9]+)\s(\w+)/',$read[$i], $regs)) {
+ $result[strtoupper($regs[2])] = $regs[1];
+ } else {
+ if (preg_match("/PERMANENTFLAGS(.*)/i",$read[$i], $regs)) {
+ $regs[1]=trim(preg_replace ( array ("/\(/","/\)/","/\]/") ,'', $regs[1])) ;
+ $result['PERMANENTFLAGS'] = $regs[1];
+ } else if (preg_match("/FLAGS(.*)/i",$read[$i], $regs)) {
+ $regs[1]=trim(preg_replace ( array ("/\(/","/\)/") ,'', $regs[1])) ;
+ $result['FLAGS'] = $regs[1];
+ }
+ }
+ }
+ if (preg_match('/^\[(.+)\]/',$message, $regs)) {
+ $result['RIGHTS']=$regs[1];
+ }
+
+ if ($auto_expunge) {
+ $tmp = sqimap_run_command($imap_stream, 'EXPUNGE', false, $a, $b);
+ }
+ return $result;
+}
+
+/**
+ * Creates a folder.
+ */
+function sqimap_mailbox_create ($imap_stream, $mailbox, $type) {
+ global $delimiter;
+ if (strtolower($type) == 'noselect') {
+ $mailbox .= $delimiter;
+ }
+
+ $read_ary = sqimap_run_command($imap_stream, 'CREATE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ sqimap_subscribe ($imap_stream, $mailbox);
+}
+
+/**
+ * Subscribes to an existing folder.
+ */
+function sqimap_subscribe ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command($imap_stream, 'SUBSCRIBE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+}
+
+/**
+ * Unsubscribes from an existing folder
+ */
+function sqimap_unsubscribe ($imap_stream, $mailbox) {
+ $read_ary = sqimap_run_command($imap_stream, 'UNSUBSCRIBE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ false, $response, $message);
+}
+
+/**
+ * Deletes the given folder
+ */
+function sqimap_mailbox_delete ($imap_stream, $mailbox) {
+ global $data_dir, $username;
+ sqimap_unsubscribe ($imap_stream, $mailbox);
+ $read_ary = sqimap_run_command($imap_stream, 'DELETE ' .
+ sqimap_encode_mailbox_name($mailbox),
+ true, $response, $message);
+ if ($response !== 'OK') {
+ // subscribe again
+ sqimap_subscribe ($imap_stream, $mailbox);
+ } else {
+ do_hook_function('rename_or_delete_folder', $args = array($mailbox, 'delete', ''));
+ removePref($data_dir, $username, "thread_$mailbox");
+ }
+}
+
+/**
+ * Determines if the user is subscribed to the folder or not
+ */
+function sqimap_mailbox_is_subscribed($imap_stream, $folder) {
+ $boxesall = sqimap_mailbox_list ($imap_stream);
+ foreach ($boxesall as $ref) {
+ if ($ref['unformatted'] == $folder) {
+ return true;
+ }
+ }
+ return false;
+}
+
+/**
+ * Renames a mailbox.
+ */
+function sqimap_mailbox_rename( $imap_stream, $old_name, $new_name ) {
+ if ( $old_name != $new_name ) {
+ global $delimiter, $imap_server_type, $data_dir, $username;
+ if ( substr( $old_name, -1 ) == $delimiter ) {
+ $old_name = substr( $old_name, 0, strlen( $old_name ) - 1 );
+ $new_name = substr( $new_name, 0, strlen( $new_name ) - 1 );
+ $postfix = $delimiter;
+ } else {
+ $postfix = '';
+ }
+
+ $boxesall = sqimap_mailbox_list($imap_stream);
+ $cmd = 'RENAME ' . sqimap_encode_mailbox_name($old_name) .
+ ' ' . sqimap_encode_mailbox_name($new_name);
+ $data = sqimap_run_command($imap_stream, $cmd, true, $response, $message);
+ sqimap_unsubscribe($imap_stream, $old_name.$postfix);
+ $oldpref = getPref($data_dir, $username, 'thread_'.$old_name.$postfix);
+ removePref($data_dir, $username, 'thread_'.$old_name.$postfix);
+ sqimap_subscribe($imap_stream, $new_name.$postfix);
+ setPref($data_dir, $username, 'thread_'.$new_name.$postfix, $oldpref);
+ do_hook_function('rename_or_delete_folder',$args = array($old_name, 'rename', $new_name));
+ $l = strlen( $old_name ) + 1;
+ $p = 'unformatted';
+
+ foreach ($boxesall as $box) {
+ if (substr($box[$p], 0, $l) == $old_name . $delimiter) {
+ $new_sub = $new_name . $delimiter . substr($box[$p], $l);
+ if ($imap_server_type == 'cyrus') {
+ $cmd = 'RENAME "' . $box[$p] . '" "' . $new_sub . '"';
+ $data = sqimap_run_command($imap_stream, $cmd, true,
+ $response, $message);
+ }
+ sqimap_unsubscribe($imap_stream, $box[$p]);
+ $oldpref = getPref($data_dir, $username, 'thread_'.$box[$p]);
+ removePref($data_dir, $username, 'thread_'.$box[$p]);
+ sqimap_subscribe($imap_stream, $new_sub);
+ setPref($data_dir, $username, 'thread_'.$new_sub, $oldpref);
+ do_hook_function('rename_or_delete_folder',
+ $args = array($box[$p], 'rename', $new_sub));
+ }
+ }
+ }
+}
+
+/**
+ * Formats a mailbox into parts for the $boxesall array
+ *
+ * The parts are:
+ *
+ * raw - Raw LIST/LSUB response from the IMAP server
+ * formatted - nicely formatted folder name
+ * unformatted - unformatted, but with delimiter at end removed
+ * unformatted-dm - folder name as it appears in raw response
+ * unformatted-disp - unformatted without $folder_prefix
+ */
+function sqimap_mailbox_parse ($line, $line_lsub) {
+ global $folder_prefix, $delimiter;
+
+ /* Process each folder line */
+ for ($g = 0, $cnt = count($line); $g < $cnt; ++$g) {
+ /* Store the raw IMAP reply */
+ if (isset($line[$g])) {
+ $boxesall[$g]['raw'] = $line[$g];
+ } else {
+ $boxesall[$g]['raw'] = '';
+ }
+
+ /* Count number of delimiters ($delimiter) in folder name */
+ $mailbox = /*trim(*/$line_lsub[$g]/*)*/;
+ $dm_count = substr_count($mailbox, $delimiter);
+ if (substr($mailbox, -1) == $delimiter) {
+ /* If name ends in delimiter, decrement count by one */
+ $dm_count--;
+ }
+
+ /* Format folder name, but only if it's a INBOX.* or has a parent. */
+ $boxesallbyname[$mailbox] = $g;
+ $parentfolder = readMailboxParent($mailbox, $delimiter);
+ if ( (strtolower(substr($mailbox, 0, 5)) == "inbox") ||
+ (substr($mailbox, 0, strlen($folder_prefix)) == $folder_prefix) ||
+ (isset($boxesallbyname[$parentfolder]) &&
+ (strlen($parentfolder) > 0) ) ) {
+ $indent = $dm_count - (substr_count($folder_prefix, $delimiter));
+ if ($indent > 0) {
+ $boxesall[$g]['formatted'] = str_repeat(' ', $indent);
+ } else {
+ $boxesall[$g]['formatted'] = '';
+ }
+ $boxesall[$g]['formatted'] .= imap_utf7_decode_local(readShortMailboxName($mailbox, $delimiter));
+ } else {
+ $boxesall[$g]['formatted'] = imap_utf7_decode_local($mailbox);
+ }
+
+ $boxesall[$g]['unformatted-dm'] = $mailbox;
+ if (substr($mailbox, -1) == $delimiter) {