- $fieldsdescr = array('Post' => _("Post to List"),
- 'Reply' => _("Reply to List"),
- 'Subscribe' => _("Subscribe"),
- 'Unsubscribe' => _("Unsubscribe"),
- 'Archive' => _("List Archives"),
- 'Owner' => _("Contact Listowner"),
- 'Help' => _("Help"));
- $fields = array_keys($fieldsdescr);
-
- $sorted_cmds = array();
- $unsorted_cmds = array();
- $output = array();
-
- $lfields = 'List-' . implode (' List-', $fields);
-
- $sid = sqimap_session_id($uid_support);
- fputs ($imapConnection, "$sid FETCH $passed_id BODY.PEEK[HEADER.FIELDS ($lfields)]\r\n");
- $read = sqimap_read_data($imapConnection, $sid, true, $response, $emessage);
-
- for ($i = 1; $i < count($read); $i++) {
- foreach ($fields as $field) {
- if ( preg_match("/^List-$field: *<(.+?)>/i", $read[$i], $match) ) {
- $unsorted_cmds[$field] = $match[1];
- }
+ $fieldsdescr = array('post' => _("Post to List"),
+ 'reply' => _("Reply to List"),
+ 'subscribe' => _("Subscribe"),
+ 'unsubscribe' => _("Unsubscribe"),
+ 'archive' => _("List Archives"),
+ 'owner' => _("Contact Listowner"),
+ 'help' => _("Help"));
+
+ foreach ($message->rfc822_header->mlist as $cmd => $actions) {
+
+ /* I don't know this action... skip it */
+ if(!array_key_exists($cmd, $fieldsdescr)) {
+ continue;