Cleaned up parseComments so it handles comments inside of comments. Changed
[squirrelmail.git] / class / mime.class.php
index b4fa18e67e476ef121cd2576a7d3a5d11a26e96f..e6d9c3b85db02889ec8ae3b82e9612c50399b829 100644 (file)
  * Copyright (c) 2002 The SquirrelMail Project Team
  * Licensed under the GNU GPL. For full terms see the file COPYING.
  *
- *
  * This contains functions needed to handle mime messages.
  *
  * $Id$
  */
 
-
-
-/* 
+/*
  * rdc822_header class
  * input: header_string or array
  */
-class rfc822_header
-{
+class rfc822_header {
     var $date = '',
         $subject = '',
-       $from = array(),
-       $sender = '',
-       $reply_to = array(),
-       $to = array(),
-       $cc = array(),
-       $bcc = array(),
-       $in_reply_to = '',
-       $message_id = '',
-       $mime = false,
-       $content_type = '',
-       $disposition = '',
-       $xmailer = '',
-       $priority = 3,
-       $dnt = '',
-       $mlist = array(),
-       $more_headers = array(); /* only needed for constructing headers 
-                                   in smtp.php */
-       
-    function parseHeader($hdr)
-    {
-        if (is_array($hdr))
-        {
-            $hdr = implode('',$hdr);
+        $from = array(),
+        $sender = '',
+        $reply_to = array(),
+        $to = array(),
+        $cc = array(),
+        $bcc = array(),
+        $in_reply_to = '',
+        $message_id = '',
+        $mime = false,
+        $content_type = '',
+        $disposition = '',
+        $xmailer = '',
+        $priority = 3,
+        $dnt = '',
+        $mlist = array(),
+        $more_headers = array(); /* only needed for constructing headers
+                                    in smtp.php */
+    function parseHeader($hdr) {
+        if (is_array($hdr)) {
+            $hdr = implode('', $hdr);
         }
-        /* first we unfold the header */
-        $hdr = trim(str_replace(array("\r\n\t","\r\n "),array('',''),$hdr));
-        /* 
-         * now we can make a new header array with each element representing 
-         * a headerline
-         */
-        $hdr = explode("\r\n" , $hdr);  
-        foreach ($hdr as $line)
-        {
-            $pos = strpos($line,':');
-            if ($pos > 0)
-            {
-                $field = substr($line,0,$pos);
-                $value = trim(substr($line,$pos+1));
-                if(!preg_match('/^X.*/i',$field)) {
+
+        /* First we unfold the header */
+        $hdr = trim(str_replace(array("\r\n\t", "\r\n "),array('', ''), $hdr));
+
+        /* Now we can make a new header array with */
+        /* each element representing a headerline  */
+        $hdr = explode("\r\n" , $hdr);
+        foreach ($hdr as $line) {
+            $pos = strpos($line, ':');
+            if ($pos > 0) {
+                $field = substr($line, 0, $pos);
+                $value = trim(substr($line, $pos+1));
+                if(!preg_match('/^X.*/i', $field) &&
+                   !preg_match('/^Subject/i', $field)) {
                     $value = $this->stripComments($value);
                 }
-                $this->parseField($field,$value);
+                $this->parseField($field, $value);
             }
         }
-        if ($this->content_type == '')
-        {
+        if ($this->content_type == '') {
             $this->parseContentType('text/plain; charset=us-ascii');
         }
     }
-    
-    function stripComments($value)
-    {
+
+    function stripComments($value) {
+        $result = '';
+
         $cnt = strlen($value);
-       $s = '';
-       $i = 0;
-       while ($i < $cnt)
-       {
-          switch ($value{$i})
-          {
-          case ('"'):
-             $s .= '"';
-             $i++;
-             while ($value{$i} != '"')
-             {
-                if ($value{$i} == '\\')
-                {
-                   $s .= '\\'; 
-                   $i++;
-                }
-                $s .= $value{$i}; 
-                $i++;
-                if ($i > $cnt) break;
-             }
-             $s .= $value{$i};
-             break;
-          case ('('):
-             while ($value{$i} != ')')
-             {
-                if ($value{$i} == '\\')
-                {
-                   $i++;
-                }
-                $i++;
-             }
-             break;
-          default:
-             $s .= $value{$i};
-             break;
-          }
-          $i++;    
-       }
-        return $s;
-    }     
-    
-    function parseField($field,$value)
-    {
+        for ($i = 0; $i < $cnt; $i++) {
+            switch ($value{$i}) {
+                case '"':
+                    $result .= '"';
+                    while ((++$i < $cnt) && ($value{$i} != '"')) {
+                        if ($value{$i} == '\\') {
+                            $result .= '\\';
+                            $i++;
+                        }
+                        $result .= $value{$i};
+                    }
+                    $result .= $value{$i};
+                    break;
+                case '(':
+                    $depth = 1;
+                    while (($depth > 0) && (++$i < $cnt)) {
+                        switch($value{$i}) {
+                            case '\\':
+                                $i++;
+                                break;
+                            case '(':
+                                $depth++;
+                                break;
+                            case ')':
+                                $depth--;
+                                break;
+                            default:
+                                break;
+                        }
+                    }
+                    break;
+                default:
+                    $result .= $value{$i};
+                    break;
+            }
+        }
+        return $result;
+    }
+
+    function parseField($field, $value) {
         $field = strtolower($field);
-        switch($field)
-       {
-       case ('date'):
-            $d = strtr($value, array('  ' => ' '));
-            $d = explode(' ', $d);
-            $this->date = getTimeStamp($d);
-           break;
-       case ('subject'):
-           $this->subject = $value;
-           break;
-       case ('from'):
-           $this->from = $this->parseAddress($value,true);
-           break;
-        case ('sender'):
-           $this->sender = $this->parseAddress($value);
-           break;
-        case ('reply-to'):
-           $this->reply_to = $this->parseAddress($value, true);
-           break;
-       case ('to'):
-           $this->to = $this->parseAddress($value, true);
-           break;
-       case ('cc'):
-            $this->cc = $this->parseAddress($value, true);
-           break;
-       case ('bcc'):
-           $this->bcc = $this->parseAddress($value, true);
-           break;
-        case ('in-reply-to'):
-           $this->in_reply_to = $value;
-           break;
-       case ('message_id'):
-           $this->message_id = $value;
-           break;
-       case ('disposition-notification-to'):
-           $this->dnt = $this->parseAddress($value);
-           break;
-       case ('mime-Version'):
-           $value = str_replace(' ','',$value);
-           if ($value == '1.0')
-           {
-              $this->mime = true;
-           }
-           break;
-       case ('content-type'):
-           $this->parseContentType($value);
-           break;
-       case ('content-disposition'):
-           $this->parseDisposition($value);
-           break;    
-       case ('x-mailer'):
-           $this->xmailer = $value;
-           break;
-       case ('x-priority'):
-           $this->priority = $value;
-           break;
-       case ('list-post'):
-           $this->mlist('post',$value);
-           break;
-       case ('list-reply'):
-           $this->mlist('reply',$value);       
-           break;
-       case ('list-subscribe'):
-           $this->mlist('subscribe',$value);
-           break;
-       case ('list-unsubscribe'):
-           $this->mlist('unsubscribe',$value);
-           break;
-       case ('list-archive'):
-           $this->mlist('archive',$value);
-           break;
-       case ('list-owner'):
-           $this->mlist('owner',$value);
-           break;
-       case ('list-help'):
-           $this->mlist('help',$value);
-           break;
-       case ('list-id'):
-           $this->mlist('id',$value);
-           break;
-       default:
-           break;
-       }
-    } 
-
-    function parseAddress($address, $ar=false, $addr_ar = array(), $group = '')
-    {
+        switch($field) {
+            case 'date':
+                $d = strtr($value, array('  ' => ' '));
+                $d = explode(' ', $d);
+                $this->date = getTimeStamp($d);
+                break;
+            case 'subject':
+                $this->subject = $value;
+                break;
+            case 'from':
+                $this->from = $this->parseAddress($value,true);
+                break;
+            case 'sender':
+                $this->sender = $this->parseAddress($value);
+                break;
+            case 'reply-to':
+                $this->reply_to = $this->parseAddress($value, true);
+                break;
+            case 'to':
+                $this->to = $this->parseAddress($value, true);
+                break;
+            case 'cc':
+                $this->cc = $this->parseAddress($value, true);
+                break;
+            case 'bcc':
+                $this->bcc = $this->parseAddress($value, true);
+                break;
+            case 'in-reply-to':
+                $this->in_reply_to = $value;
+                break;
+            case 'message-id':
+                $this->message_id = $value;
+                break;
+            case 'disposition-notification-to':
+                $this->dnt = $this->parseAddress($value);
+                break;
+            case 'mime-version':
+                $value = str_replace(' ', '', $value);
+                $this->mime = ($value == '1.0' ? true : $this->mime);
+                break;
+            case 'content-type':
+                $this->parseContentType($value);
+                break;
+            case 'content-disposition':
+                $this->parseDisposition($value);
+                break;
+            case 'user-agent':
+            case 'x-mailer':
+                $this->xmailer = $value;
+                break;
+            case 'x-priority':
+                $this->priority = $value;
+                break;
+            case 'list-post':
+                $this->mlist('post', $value);
+                break;
+            case 'list-reply':
+                $this->mlist('reply', $value);
+                break;
+            case 'list-subscribe':
+                $this->mlist('subscribe', $value);
+                break;
+            case 'list-unsubscribe':
+                $this->mlist('unsubscribe', $value);
+                break;
+            case 'list-archive':
+                $this->mlist('archive', $value);
+                break;
+            case 'list-owner':
+                $this->mlist('owner', $value);
+                break;
+            case 'list-help':
+                $this->mlist('help', $value);
+                break;
+            case 'list-id':
+                $this->mlist('id', $value);
+                break;
+            default:
+                break;
+        }
+    }
+
+    function parseAddress
+    ($address, $ar=false, $addr_ar = array(), $group = '') {
         $pos = 0;
-        $j = strlen( $address );
+        $j = strlen($address);
         $name = '';
         $addr = '';
-        while ( $pos < $j ) {
-          switch ($address{$pos})
-          {
-          case ('"'): /* get the personal name */
-              $pos++;
-             if ($address{$pos} == '"')
-             {
-                $pos++;
-             } else
-             {
-                 while ( $pos < $j && $address{$pos} != '"')
-                {
-                     if (substr($address, $pos, 2) == '\\"')
-                    {
-                       $name .= $address{$pos};
-                        $pos++;
-                     } elseif (substr($address, $pos, 2) == '\\\\')
-                    {
-                       $name .= $address{$pos};
-                        $pos++;
-                     }
-                     $name .= $address{$pos};
-                     $pos++;
-                 }
-             }
-             $pos++;
-             break;
-           case ('<'):  /* get email address */
-              $addr_start=$pos;
-              $pos++;
-              while ( $pos < $j && $address{$pos} != '>' )
-             {
-                $addr .= $address{$pos};       
-                 $pos++;
-              }
-             $pos++;
-             break;
-           case ('('):  /* rip off comments */
-              $addr_start=$pos;
-              $pos++;
-              while ( $pos < $j && $address{$pos} != ')' )
-             {
-                $addr .= $address{$pos};       
-                 $pos++;
-              }
-             $address_start = substr($address,0,$addr_start);
-             $address_end = substr($address,$pos+1);
-             $address = $address_start . $address_end; 
-             $j = strlen( $address );
-             $pos = $addr_start;
-             $pos++;
-             break;
-           case (','):  /* we reached a delimiter */
-              if ($addr == '')
-             {
-                $addr = substr($address,0,$pos);
-             } elseif ($name == '') {
-                $name = trim(substr($address,0,$addr_start));
-             }
-             
-             $at = strpos($addr, '@');
-             $addr_structure = new address_structure();
-             $addr_structure->personal = $name;
-             $addr_structure->group = $group;
-             if ($at)
-             {
-                $addr_structure->mailbox = substr($addr,0,$at);
-                $addr_structure->host = substr($addr,$at+1);
-             } else
-             {
-                $addr_structure->mailbox = $addr;
-             }
-             $address = trim(substr($address,$pos+1));
-             $j = strlen( $address );
-             $pos = 0;
-              $name = '';
-              $addr = '';
-              $addr_ar[] = $addr_structure;
-             break;
-           case (':'):  /* process the group addresses */
-              /* group marker */
-              $group = substr($address,0,$pos);
-             $address = substr($address,$pos+1);
-              $result = $this->parseAddress($address, $ar, $addr_ar, $group);
-             $addr_ar = $result[0];
-             $pos = $result[1];
-             $address = substr($address,$pos);
-             $j = strlen( $address );  
-             $group = '';
-             $pos++;
-             break;
-           case (';'):
-             if ($group)
-             {
-                 $address = substr($address, 0, $pos-1);
-             }
-             $pos++;
-              break;
-          default:
-             $pos++;
-             break;
-          }      
-           
+        while ($pos < $j) {
+            switch ($address{$pos}) {
+                case '"': /* get the personal name */
+                    if ($address{++$pos} == '"') {
+                        ++$pos;
+                    } else {
+                        while ($pos < $j && $address{$pos} != '"') {
+                            if ((substr($address, $pos, 2) == '\\"') ||
+                                (substr($address, $pos, 2) == '\\\\')) {
+                                $name .= $address{$pos++};
+                            }
+                            $name .= $address{$pos++};
+                        }
+                    }
+                    ++$pos;
+                    break;
+                case '<':  /* get email address */
+                    $addr_start = $pos++;
+                    while ($pos < $j && $address{$pos} != '>') {
+                        $addr .= $address{$pos++};
+                    }
+                    ++$pos;
+                    break;
+                case '(':  /* rip off comments */
+                    $addr_start = $pos;
+                    for (++$pos; $pos < $j && $address{$pos} != ')'; ++$pos) {
+                        $addr .= $address{$pos};
+                    }
+                    $address_start = substr($address, 0, $addr_start);
+                    $address_end   = substr($address, $pos + 1);
+                    $address       = $address_start . $address_end;
+                    $j = strlen($address);
+                    $pos = $addr_start + 1;
+                    break;
+                case ',':  /* we reached a delimiter */
+                    if ($addr == '') {
+                        $addr = substr($address, 0, $pos);
+                    } else if ($name == '') {
+                        $name = trim(substr($address, 0, $addr_start));
+                    }
+
+                    $at = strpos($addr, '@');
+                    $addr_structure = new address_structure();
+                    $addr_structure->personal = $name;
+                    $addr_structure->group = $group;
+                    if ($at) {
+                        $addr_structure->mailbox = substr($addr, 0, $at);
+                        $addr_structure->host = substr($addr, $at+1);
+                    } else {
+                        $addr_structure->mailbox = $addr;
+                    }
+                    $address = trim(substr($address, $pos+1));
+                    $j = strlen($address);
+                    $pos = 0;
+                    $name = '';
+                    $addr = '';
+                    $addr_ar[] = $addr_structure;
+                    break;
+                case ':':  /* process the group addresses */
+                    /* group marker */
+                    $group = substr($address, 0, $pos);
+                    $address = substr($address, $pos+1);
+                    $result = $this->parseAddress($address, $ar, $addr_ar, $group);
+                    $addr_ar = $result[0];
+                    $pos = $result[1];
+                    $address = substr($address, $pos++);
+                    $j = strlen($address);
+                    $group = '';
+                    break;
+                case ';':
+                    if ($group) {
+                        $address = substr($address, 0, $pos - 1);
+                    }
+                    ++$pos;
+                    break;
+                default:
+                    ++$pos;
+                    break;
+            }
         }
-        if ($addr == '')
-       {
-           $addr = substr($address,0,$pos);
-        } elseif ($name == '')
-       {
-           $name = trim(substr($address,0,$addr_start));
+        if ($addr == '') {
+            $addr = substr($address, 0, $pos);
+        } else if ($name == '') {
+            $name = trim(substr($address, 0, $addr_start));
         }
         $at = strpos($addr, '@');
         $addr_structure = new address_structure();
         $addr_structure->group = $group;
-        if ($at)
-       {
-           $addr_structure->mailbox = trim(substr($addr,0,$at));
-           $addr_structure->host = trim(substr($addr,$at+1));
-        } else
-       {
-           $addr_structure->mailbox = trim($addr);
+        if ($at) {
+            $addr_structure->mailbox = trim(substr($addr, 0, $at));
+            $addr_structure->host = trim(substr($addr, $at+1));
+        } else {
+            $addr_structure->mailbox = trim($addr);
+        }
+        if ($group && $addr == '') { /* no addresses found in group */
+            $name = "$group: Undisclosed recipients;";
+            $addr_structure->personal = $name;
+            $addr_ar[] = $addr_structure;
+            return (array($addr_ar, $pos+1));
+        } else {
+            $addr_structure->personal = $name;
+            if ($name || $addr) {
+                $addr_ar[] = $addr_structure;
+            }
+        }
+        if ($ar) {
+            return ($addr_ar);
+        }
+        return ($addr_ar[0]);
+    }
+
+    function parseContentType($value) {
+        $pos = strpos($value, ';');
+        $props = '';
+        if ($pos > 0) {
+           $type = trim(substr($value, 0, $pos));
+           $props = trim(substr($type, $pos+1));
+        } else {
+           $type = $value;
+        }
+        $content_type = new content_type($type);
+        if ($props) {
+            $properties = $this->parseProperties($props);
+            if (!isset($properties['charset'])) {
+                $properties['charset'] = 'us-ascii';
+            }
+            $content_type->properties = $this->parseProperties($props);
         }
-        if ($group && $addr == '') /* no addresses found in group */
-       { 
-           $name = "$group: Undisclosed recipients;";
-           $addr_structure->personal = $name;
-           $addr_ar[] = $addr_structure;     
-           return (array($addr_ar,$pos+1)); 
-        } else 
-       {
-           $addr_structure->personal = $name;
-           if ($name || $addr)
-          {
-              $addr_ar[] = $addr_structure;
-           } 
+        $this->content_type = $content_type;
+    }
+
+    function parseProperties($value) {
+        $propArray = explode(';', $value);
+        $propResultArray = array();
+        foreach ($propArray as $prop) {
+            $prop = trim($prop);
+            $pos = strpos($prop, '=');
+            if ($pos > 0)  {
+                $key = trim(substr($prop, 0, $pos));
+                $val = trim(substr($prop, $pos+1));
+                if ($val{0} == '"') {
+                    $val = substr($val, 1, -1);
+                }
+                $propResultArray[$key] = $val;
+            }
         }
-        if ($ar)
-       {
-           return ($addr_ar);
-        } else
-       {
-           return ($addr_ar[0]);
-        }          
+        return $propResultArray;
     }
-   
-   function parseContentType($value)
-   {
-       $pos = strpos($value,';');
-       $props = '';
-       if ($pos > 0)
-       {
-          $type = trim(substr($value,0,$pos));
-         $props = trim(substr($type,$pos+1));
-       } else
-       {
-          $type = $value;
-       }
-       $content_type = new content_type($type);
-       if ($props)
-       {
-          $properties = $this->parseProperties($props);
-         if (!isset($properties['charset']))
-         {
-            $properties['charset'] = 'us-ascii';
-         }
-         $content_type->properties = $this->parseProperties($props);
-       }
-       $this->content_type = $content_type;
-   }
-   
-   function parseProperties($value)
-   {
-      $propArray = explode(';',$value);
-      $propResultArray = array();
-      foreach ($propArray as $prop)
-      {
-         $prop = trim($prop);
-         $pos = strpos($prop,'=');
-        if ($pos>0)
-        {
-           $key = trim(substr($prop,0,$pos));
-           $val = trim(substr($prop,$pos+1));
-           if ($val{0} == '"')
-           {
-              $val = substr($val,1,-1);
-           }
-           $propResultArray[$key] = $val;
-        }
-      }
-      return $propResultArray;
-   }
-   
-   function parseDisposition($value)
-   {
-       $pos = strpos($value,';');
-       $props = '';
-       if ($pos > 0)
-       {
-          $name = trim(substr($value,0,$pos));
-         $props = trim(substr($type,$pos+1));
-       } else
-       {
-          $name = $value;
-       }
-       $props_a = $this->parseProperties($props);
-       $disp = new disposition($name);
-       $disp->properties = $props_a;
-       $this->disposition = $disp;
-   }
-   
-   function mlist($field, $value)
-   {
-       $res_a = array();
-       $value_a = explode(',',$value);
-       foreach ($value_a as $val) {
-          $val = trim($val);
-         if ($val{0} == '<')
-         {
-            $val = substr($val,1,-1);
-         }
-         if (substr($val,0,7) == 'mailto:')
-         {
-            $res_a['mailto'] = substr($val,7);
-         } else
-         {
-            $res_a['href'] = $val;
-         }
-       }
-       $this->mlist[$field] = $res_a;
-   }
-
-    /* 
-    * function to get the addres strings out of the header.
-    * Arguments: string or array of strings !
-    * example1: header->getAddr_s('to').
-    * example2: header->getAddr_s(array('to','cc','bcc'))
-    */
-    function getAddr_s($arr, $separator=', ')
-    {
-       if (is_array($arr))
-       {
-           $s = '';
-           foreach($arr as $arg )
-           {
-              $result = $this->getAddr_s($arg);
-              if ($result)
-              {
-                 $s .= $separator . $result;
-              }
-           }
-           if ($s) $s = substr($s,2);
-           return $s;
-       } else
-       {
-           $s = '';
-           eval('$addr = $this->'.$arr.';') ;
-           if (is_array($addr))
-           {
-               foreach ($addr as $addr_o)
-              {
-                  if (is_object($addr_o))
-                 {
-                     $s .= $addr_o->getAddress() . $separator;
-                  }
-               }
-              $s = substr($s,0,-strlen($separator));
-           } else
-           {
-              if (is_object($addr))
-              {
-                 $s .= $addr->getAddress();
-              }
-           }
-           return $s;
-       }
+
+    function parseDisposition($value) {
+        $pos = strpos($value, ';');
+        $props = '';
+        if ($pos > 0) {
+            $name = trim(substr($value, 0, $pos));
+            $props = trim(substr($type, $pos+1));
+        } else {
+            $name = $value;
+        }
+        $props_a = $this->parseProperties($props);
+        $disp = new disposition($name);
+        $disp->properties = $props_a;
+        $this->disposition = $disp;
     }
-    
-    function getAddr_a($arg, $excl_arr=array(), $arr = array())
-    {
-       if (is_array($arg))
-       {
-           foreach($arg as $argument )
-           {
-              $arr = $this->getAddr_a($argument, $excl_arr, $arr);
-           }
-           return $arr;
-       } else
-       {
-           eval('$addr = $this->'.$arg.';') ;
-           if (is_array($addr))
-           {
-               foreach ($addr as $addr_o)
-              {
-                  if (is_object($addr_o))
-                 {
-                    if (isset($addr_o->host) && $addr_o->host !='')
-                    {
-                       $email = $addr_o->mailbox.'@'.$addr_o->host;
-                    } else
-                    {
-                       $email = $addr_o->mailbox;
-                    }
-                    $email = strtolower($email);
-                    if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
-                    {
-                       $arr[$email] = $addr_o->personal;
-                    }
-                  }
-               }
-           } else
-           {
-              if (is_object($addr))
-              {
-                 if (isset($addr->host))
-                 {
-                    $email = $addr->mailbox.'@'.$addr->host;
-                 } else
-                 {
-                    $email = $addr->mailbox;
-                 }
-                 $email = strtolower($email);            
-                 if ($email && !isset($arr[$email]) && !isset($excl_arr[$email]))
-                 {
-                    $arr[$email] = $addr->personal;
-                 }
-              }
-           }
-           return $arr;
-       }
+
+    function mlist($field, $value) {
+        $res_a = array();
+        $value_a = explode(',', $value);
+        foreach ($value_a as $val) {
+            $val = trim($val);
+            if ($val{0} == '<') {
+                $val = substr($val, 1, -1);
+            }
+            if (substr($val, 0, 7) == 'mailto:') {
+                $res_a['mailto'] = substr($val, 7);
+            } else {
+                $res_a['href'] = $val;
+            }
+        }
+        $this->mlist[$field] = $res_a;
+    }
+
+    /*
+     * function to get the addres strings out of the header.
+     * Arguments: string or array of strings !
+     * example1: header->getAddr_s('to').
+     * example2: header->getAddr_s(array('to', 'cc', 'bcc'))
+     */
+    function getAddr_s($arr, $separator = ',') {
+        $s = '';
+
+        if (is_array($arr)) {
+            foreach($arr as $arg) {
+                if ($this->getAddr_s($arg)) {
+                    $s .= $separator . $result;
+                }
+            }
+            $s = ($s ? substr($s, 2) : $s);
+        } else {
+            eval('$addr = $this->' . $arr . ';') ;
+            if (is_array($addr)) {
+                foreach ($addr as $addr_o) {
+                    if (is_object($addr_o)) {
+                        $s .= $addr_o->getAddress() . $separator;
+                    }
+                }
+                $s = substr($s, 0, -strlen($separator));
+            } else {
+                if (is_object($addr)) {
+                    $s .= $addr->getAddress();
+                }
+            }
+        }
+        return $s;
     }
-    
-    function getContentType($type0, $type1)
-    {
+
+    function getAddr_a($arg, $excl_arr = array(), $arr = array()) {
+        if (is_array($arg)) {
+            foreach($arg as $argument) {
+                $arr = $this->getAddr_a($argument, $excl_arr, $arr);
+            }
+        } else {
+            eval('$addr = $this->' . $arg . ';') ;
+            if (is_array($addr)) {
+                foreach ($addr as $next_addr) {
+                    if (is_object($next_addr)) {
+                        if (isset($next_addr->host) && ($next_addr->host != '')) {
+                            $email = $next_addr->mailbox . '@' . $next_addr->host;
+                        } else {
+                            $email = $next_addr->mailbox;
+                        }
+                        $email = strtolower($email);
+                        if ($email && !isset($arr[$email]) && !isset($excl_arr[$email])) {
+                            $arr[$email] = $next_addr->personal;
+                        }
+                    }
+                }
+            } else {
+                if (is_object($addr)) {
+                    $email  = $addr->mailbox;
+                    $email .= (isset($addr->host) ? '@' . $addr->host : '');
+                    $email  = strtolower($email);
+                    if ($email && !isset($arr[$email]) && !isset($excl_arr[$email])) {
+                        $arr[$email] = $addr->personal;
+                    }
+                }
+            }
+        }
+        return $arr;
+    }
+
+    function getContentType($type0, $type1) {
         $type0 = $this->content_type->type0;
-       $type1 = $this->content_type->type1;
+        $type1 = $this->content_type->type1;
         return $this->content_type->properties;
     }
 }
 
-class msg_header
-{
+class msg_header {
     /** msg_header contains all variables available in a bodystructure **/
     /** entity like described in rfc2060                               **/
 
-    var $type0 = '', 
-        $type1 = '', 
-       $parameters = array(),
-        $id = 0, 
-       $description = '', 
-        $encoding='', 
-       $size = 0,
-       $md5='', 
-       $disposition = '', 
-       $language='';
-    
-    /* 
+    var $type0 = '',
+        $type1 = '',
+        $parameters = array(),
+        $id = 0,
+        $description = '',
+        $encoding='',
+        $size = 0,
+        $md5='',
+        $disposition = '',
+        $language='';
+
+    /*
      * returns addres_list of supplied argument
      * arguments: array('to', 'from', ...) or just a string like 'to'.
      * result: string: address1, addres2, ....
-     */ 
-    
-    function setVar($var, $value)
-    {
+     */
+
+    function setVar($var, $value) {
         $this->{$var} = $value;
     }
-    
-    function getParameter($par)
-    {
-        $value = strtolower($par);
-        if (isset($this->parameters[$par]))
-       {
-           return $this->parameters[$par];
-        }
-        return '';
+
+    function getParameter($p) {
+        $value = strtolower($p);
+        return (isset($this->parameters[$p]) ? $this->parameters[$p] : '');
     }
-    
-    function setParameter($parameter, $value)
-    {
+
+    function setParameter($parameter, $value) {
         $this->parameters[strtolower($parameter)] = $value;
     }
 }
 
 
 
-class address_structure
-{
-   var $personal = '', $adl = '', $mailbox = '', $host = '', $group = '';
+class address_structure {
+    var $personal = '',
+        $adl      = '',
+        $mailbox  = '',
+        $host     = '',
+        $group    = '';
 
-   function getAddress($full=true)
-   {
-     if (is_object($this))
-     {
-        if (isset($this->host) && $this->host !='')
-       {
-          $email = $this->mailbox.'@'.$this->host;
-        } else
-       {
-           $email = $this->mailbox;
-        }
-        if (trim($this->personal) !='')
-       {
-          if ($email)
-          {
-               $addr = '"' . $this->personal . '" <' .$email.'>';
-          } else
-          {
-               $addr = $this->personal;
-          }
-          $best_dpl = $this->personal;
-        } else
-       {
-           $addr = $email;
-          $best_dpl = $email;
+    function getAddress($full = true) {
+        $result = '';
+
+        if (is_object($this)) {
+            if (isset($this->host) && ($this->host != '')) {
+                $email = $this->mailbox.'@'.$this->host;
+            } else {
+                $email = $this->mailbox;
+            }
+            if (trim($this->personal) != '') {
+                if ($email) {
+                    $addr = '"' . $this->personal . '" <' .$email.'>';
+                } else {
+                    $addr = $this->personal;
+                }
+                $best_dpl = $this->personal;
+            } else {
+                $addr = $email;
+                $best_dpl = $email;
+            }
+            $result = ($full ? $addr : $best_dpl);
         }
-       if ($full)
-       {
-          return $addr;
-       } else
-       {
-          return $best_dpl;
-       }    
-     } else return '';
-   }
+        return $result;
+    }
 }
 
-class message
-{
+class message {
     /** message is the object that contains messages.  It is a recursive
-      object in that through the $entities variable, it can contain
-      more objects of type message.  See documentation in mime.txt for
-      a better description of how this works.
+        object in that through the $entities variable, it can contain
+        more objects of type message.  See documentation in mime.txt for
+        a better description of how this works.
     **/
-    var $rfc822_header = '', 
+    var $rfc822_header = '',
         $mime_header = '',
-       $flags = '',
+        $flags = '',
         $type0='',
-       $type1='',         
-        $entities = array(), 
-        $parent_ent, $entity, 
-       $parent = '', $decoded_body='',
-       $is_seen = 0, $is_answered = 0, $is_deleted = 0, $is_flagged = 0,
-       $is_mdnsent = 0,
-       $body_part = '',
-       $offset = 0,  /* for fetching body parts out of raw messages */
-       $length = 0;  /* for fetching body parts out of raw messages */
-
-    function setEnt($ent)
-    {
+        $type1='',
+        $entities = array(),
+        $parent_ent, $entity,
+        $parent = '', $decoded_body='',
+        $is_seen = 0, $is_answered = 0, $is_deleted = 0, $is_flagged = 0,
+        $is_mdnsent = 0,
+        $body_part = '',
+        $offset = 0,  /* for fetching body parts out of raw messages */
+        $length = 0;  /* for fetching body parts out of raw messages */
+
+    function setEnt($ent) {
         $this->entity_id= $ent;
     }
-    
-    function addEntity ($msg)
-    {
+
+    function addEntity ($msg) {
         $msg->parent = &$this;
         $this->entities[] = $msg;
     }
 
-    function addRFC822Header($read)
-    {
-       $header = new rfc822_header();
-       $this->rfc822_header = $header->parseHeader($read);
+    function getFilename() {
+        $filename = '';
+
+        if (is_object($this->header->disposition)) {
+            $filename = $this->header->disposition->getproperty('filename');
+            if (!$filename) {
+                $filename = $this->header->disposition->getproperty('name');
+            }
+        }
+        if (!$filename) {
+            $filename = 'untitled-'.$this->entity_id;
+        }
+        return $filename;
+    }
+
+
+    function addRFC822Header($read) {
+        $header = new rfc822_header();
+        $this->rfc822_header = $header->parseHeader($read);
     }
 
-    function getEntity($ent)
-    {
+    function getEntity($ent) {
         $cur_ent = $this->entity_id;
-       $msg = $this;
-       if ($cur_ent == '' || $cur_ent == '0')
-       {
-          $cur_ent_a = array();
-       } else
-       {
-          $cur_ent_a = explode('.',$this->entity_id);
-       }
-       $ent_a = explode('.',$ent);
-        
-       $cnt = count($ent_a);
-
-       for ($i=0;$i<$cnt -1;$i++)
-       {
-          if (isset($cur_ent_a[$i]) && $cur_ent_a[$i] != $ent_a[$i])
-          {
-             $msg = $msg->parent;
-             $cur_ent_a = explode('.',$msg->entity_id);
-             $i--;
-           } else if (!isset($cur_ent_a[$i]))
-          {
-             if (isset($msg->entities[($ent_a[$i]-1)]))
-             {
-               $msg = $msg->entities[($ent_a[$i]-1)];
-             } else {
-               $msg = $msg->entities[0];
-             }
-          }
-          if ($msg->type0 == 'message' && $msg->type1 == 'rfc822')
-          { 
-             /*this is a header for a message/rfc822 entity */
-             $msg = $msg->entities[0];
-          }
-       }
-
-       if ($msg->type0 == 'message' && $msg->type1 == 'rfc822')
-       { 
-          /*this is a header for a message/rfc822 entity */
-          $msg = $msg->entities[0];
-       }
-
-       if (isset($msg->entities[($ent_a[$cnt-1])-1]))
-       {
-           $msg = $msg->entities[($ent_a[$cnt-1]-1)];
+        $msg = $this;
+        if (($cur_ent == '') || ($cur_ent == '0')) {
+            $cur_ent_a = array();
+        } else {
+            $cur_ent_a = explode('.', $this->entity_id);
+        }
+        $ent_a = explode('.', $ent);
+
+        $cnt = count($ent_a);
+
+        for ($i = 0; $i < $cnt -1; ++$i) {
+            if (isset($cur_ent_a[$i]) && ($cur_ent_a[$i] != $ent_a[$i])) {
+                $msg = $msg->parent;
+                $cur_ent_a = explode('.', $msg->entity_id);
+                --$i;
+            } else if (!isset($cur_ent_a[$i])) {
+                if (isset($msg->entities[($ent_a[$i]-1)])) {
+                    $msg = $msg->entities[($ent_a[$i]-1)];
+                } else {
+                    $msg = $msg->entities[0];
+                }
+            }
+            if (($msg->type0 == 'message') && ($msg->type1 == 'rfc822')) {
+                /*this is a header for a message/rfc822 entity */
+                $msg = $msg->entities[0];
+            }
+        }
+
+        if (($msg->type0 == 'message') && ($msg->type1 == 'rfc822')) {
+            /*this is a header for a message/rfc822 entity */
+            $msg = $msg->entities[0];
+        }
+
+        if (isset($msg->entities[($ent_a[$cnt-1])-1])) {
+            if (is_object($msg->entities[($ent_a[$cnt-1])-1])) {
+                $msg = $msg->entities[($ent_a[$cnt-1]-1)];
+            }
         }
 
         return $msg;
     }
 
-    function setBody($s)
-    {
+    function setBody($s) {
         $this->body_part = $s;
     }
-    
-    function clean_up()
-    {
+
+    function clean_up() {
         $msg = $this;
-       $msg->body_part = '';
-       $i=0;
-       while ( isset($msg->entities[$i]))
-       {
-           $msg->entities[$i]->clean_up();
-           $i++;
-       }
+        $msg->body_part = '';
+
+        foreach ($msg->entities as $m) {
+            $m->clean_up();
+        }
     }
-    
-    function getMailbox()
-    {
-       $msg = $this;
-       while (is_object($msg->parent))
-       {
-          $msg = $msg->parent;
-       }
-       return $msg->mailbox;
+
+    function getMailbox() {
+        $msg = $this;
+        while (is_object($msg->parent)) {
+            $msg = $msg->parent;
+        }
+        return $msg->mailbox;
     }
-    
-    function calcEntity($msg)
-    {
-       if ($this->type0 == 'message' && $this->type1 == 'rfc822')
-       {
-           $msg->entity_id = $this->entity_id .'.0'; /* header of message/rfc822 */
-       } else if (isset($this->entity_id) && $this->entity_id !='')
-       {
-           $ent_no = count($this->entities)+1;
-           $par_ent = substr($this->entity_id,-2);
-           if ($par_ent{0} == '.')
-           {
-              $par_ent = $par_ent{1};
-           }
-           if ($par_ent == '0')
-           {
-               $ent_no = count($this->entities)+1;
-               if ($ent_no > 0)
-               {
-                  $ent = substr($this->entity_id,0,strrpos($this->entity_id,'.'));
-                  if ($ent)
-                  {
-                     $ent = $ent . ".$ent_no";
-                  } else
-                  {
-                     $ent = $ent_no;
-                  }
-                  $msg->entity_id = $ent;
-               } else
-               {
-                  $msg->entity_id = $ent_no;
-               }   
-           } else
-           {
-               $ent = $this->entity_id . ".$ent_no";
-               $msg->entity_id = $ent;
-           }
-       } else
-       { 
-           $msg->entity_id = '0';
-       }
-       return $msg->entity_id;
+
+    function calcEntity($msg) {
+        if (($this->type0 == 'message') && ($this->type1 == 'rfc822')) {
+            $msg->entity_id = $this->entity_id .'.0'; /* header of message/rfc822 */
+        } else if (isset($this->entity_id) && ($this->entity_id != '')) {
+            $ent_no = count($this->entities)+1;
+            $par_ent = substr($this->entity_id, -2);
+            if ($par_ent{0} == '.') {
+                $par_ent = $par_ent{1};
+            }
+            if ($par_ent == '0') {
+                $ent_no = count($this->entities) + 1;
+                if ($ent_no > 0) {
+                    $ent = substr($this->entity_id, 0, strrpos($this->entity_id, '.'));
+                    $ent = ($ent ? $ent . ".$ent_no" : $ent_no);
+                    $msg->entity_id = $ent;
+                } else {
+                    $msg->entity_id = $ent_no;
+                }
+            } else {
+                $ent = $this->entity_id . ".$ent_no";
+                $msg->entity_id = $ent;
+            }
+        } else {
+            $msg->entity_id = '0';
+        }
+
+        return $msg->entity_id;
     }
-    
-    
-    /* 
-     * Bodystructure parser, a recursive function for generating the 
+
+
+    /*
+     * Bodystructure parser, a recursive function for generating the
      * entity-tree with all the mime-parts.
-     * 
+     *
      * It follows RFC2060 and stores all the described fields in the
-     * message object. 
+     * message object.
      *
      * Question/Bugs:
-     * 
+     *
      * Ask for me (Marc Groot Koerkamp, stekkel@users.sourceforge.net.
      *
      */
-    function parseStructure($read, $i=0)
-    {
-      $arg_no = 0;
-      $arg_a = array();
-      $cnt = strlen($read);
-      while ($i < $cnt)
-      {
-       $char = strtoupper($read{$i});   
-        switch ($char)
-       {
-       case '(':
-           if ($arg_no == 0 )
-          {
-             if (!isset($msg))
-             {
-                $msg = new message();
-                $hdr = new msg_header();
-                $hdr->type0 = 'text';
-                $hdr->type1 = 'plain';
-                $hdr->encoding = 'us-ascii';
-                $msg->entity_id = $this->calcEntity($msg);
-             } else
-             {
-                  $msg->header->type0 = 'multipart';
-                  $msg->type0 = 'multipart';
-                  while ($read{$i} == '(')
-                  {
-                     $res = $msg->parseStructure($read,$i);
-                     $i = $res[1];
-                     $msg->addEntity($res[0]);
-                  }
-             }
-          } else
-          {
-             switch ($arg_no)
-             {
-             case 1:
-                /* multipart properties */
-                $i++;
-                $res = $this->parseProperties($read,$i);
-
-                $arg_a[] = $res[0];
-                $i = $res[1];
-                $arg_no++;
-                break;
-             case 2:
-                if (isset($msg->type0) &&  $msg->type0 == 'multipart')
-                {
-                   $i++;
-                   $res = $msg->parseDisposition($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                } else /* properties */
-                { 
-                   $res = $msg->parseProperties($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                }
-                $arg_no++;
-                 break;
-             case 3:
-                if (isset($msg->type0) &&  $msg->type0 == 'multipart')
-                {
-                   $i++;
-                   $res= $msg->parseLanguage($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                }
-             case 7:
-                if ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822')
-                {
-                    $msg->header->type0 = $arg_a[0];
-                    $msg->type0 = $arg_a[0];
-                    $msg->header->type1 = $arg_a[1];
-                    $msg->type1 = $arg_a[1];
-                    $rfc822_hdr = new rfc822_header();
-                    $res = $msg->parseEnvelope($read,$i,$rfc822_hdr);
-                    $i = $res[1];
-                    $msg->rfc822_header =  $res[0];
-                    $i++;
-                    while ($i < $cnt && $read{$i} != '(')
-                    {
-                      $i++;
-                    }
-                    $res = $msg->parseStructure($read,$i);
-                    $i = $res[1];
-                    $msg->addEntity($res[0]);
-                }
-                break;
-             case 8:
-                $i++;
-                $res = $msg->parseDisposition($read,$i);
-                $arg_a[] = $res[0];
-                $i = $res[1];
-                $arg_no++;    
-                break;
-             case 9:
-                if ($arg_a[0] == 'text' || 
-                    ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
-                {
-                   $i++;
-                   $res = $msg->parseDisposition($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                } else
-                {
-                   $i++;
-                   $res = $msg->parseLanguage($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                }
-                $arg_no++;    
-                break;
-             case 10:
-                if ($arg_a[0] == 'text' ||
-                    ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
-                {
-                   $i++;                      
-                   $res = $msg->parseLanguage($read,$i);
-                   $arg_a[] = $res[0];
-                   $i = $res[1];
-                } else
-                {
-                   $i = $msg->parseParenthesis($read,$i);
-                   $arg_a[] = ''; /* not yet desribed in rfc2060 */
-                }
-                $arg_no++;
-                break;  
-             default:
-                /* unknown argument, skip this part */
-                $i = $msg->parseParenthesis($read,$i);
-                $arg_a[] = '';
-                $arg_no++;              
-                break;
-             } /* switch */
-          }
-          break;
-       case '"':         
-          /* inside an entity -> start processing */
-           $debug = substr($read,$i,20);
-          $res = $msg->parseQuote($read,$i);
-          $arg_s = $res[0];
-          $i = $res[1];
-          $arg_no++;
-          if ($arg_no < 3) $arg_s = strtolower($arg_s); /* type0 and type1 */
-          $arg_a[] = $arg_s;
-          break;
-       case 'n':   
-       case 'N':
-          /* probably NIL argument */
-          if (strtoupper(substr($read,$i,4)) == 'NIL ' || 
-              strtoupper(substr($read,$i,4)) == 'NIL)')
-          {
-             $arg_a[] = '';
-             $arg_no++;
-             $i = $i+2;
-          }      
-          break;
-       case '{':
-          /* process the literal value */
-          $res = $msg->parseLiteral($read,$i);
-          $arg_s = $res[0];
-          $i = $res[1];
-          $arg_no++;
-          break;
-       case (is_numeric($read{$i}) ):
-          /* process integers */
-          if ($read{$i} == ' ') break; 
-          $arg_s = $read{$i};;
-          $i++;
-          while (preg_match('/^[0-9]{1}$/',$read{$i}))
-          { 
-             $arg_s .= $read{$i};
-             $i++;
-          }
-          $arg_no++;
-          $arg_a[] = $arg_s;
-          break;
-       case ')':
-          if (isset($msg->type0) && $msg->type0 == 'multipart')
-          {
-             $multipart = true;
-          } else
-          {
-             $multipart = false;
-          }
-          if (!$multipart)
-          {
-             if ($arg_a[0] == 'text' ||
-                 ($arg_a[0] == 'message' && $arg_a[1] == 'rfc822'))
-             {
-                $shifted_args = true;
-             } else
-             { 
-                $shifted_args = false;
-             }
-             $hdr->type0 = $arg_a[0];
-             $hdr->type1 = $arg_a[1];        
-
-             $msg->type0 = $arg_a[0];
-             $msg->type1 = $arg_a[1];
-
-             $arr = $arg_a[2];
-             if (is_array($arr))
-             {
-                $hdr->parameters = $arg_a[2];
-             }
-             $hdr->id = str_replace( '<', '', str_replace( '>', '', $arg_a[3] ) );
-             $hdr->description = $arg_a[4];
-             $hdr->encoding = strtolower($arg_a[5]);
-             $hdr->entity_id = $msg->entity_id;
-             $hdr->size = $arg_a[6];                                                 
-             if ($shifted_args)
-             {
-                $hdr->lines = $arg_a[7];             
-                if (isset($arg_a[8]))
-                {
-                   $hdr->md5 = $arg_a[8];
-                }
-                if (isset($arg_a[9]))
-                {
-                   $hdr->disposition = $arg_a[9];
-                }
-                if (isset($arg_a[10]))
-                {
-                   $hdr->language = $arg_a[10];
-                }
-             } else
-             {
-                if (isset($arg_a[7]))
-                {
-                   $hdr->md5 = $arg_a[7];                  
-                }
-                if (isset($arg_a[8]))
-                {
-                   $hdr->disposition = $arg_a[8];
-                }
-                if (isset($arg_a[9]))
-                {
-                   $hdr->language = $arg_a[9];
-                }
-             }
-             $msg->header = $hdr;
-             $arg_no = 0;
-             $i++;
-              if (substr($msg->entity_id,-2) == '.0' && $msg->type0 !='multipart')
-             {
-                $msg->entity_id++;
-             }
-             return (array($msg, $i));
-          } else
-          {
-             $hdr->type0 = 'multipart';
-             $hdr->type1 = $arg_a[0];
-             $msg->type0 = 'multipart';
-             $msg->type1 = $arg_a[0];
-             if (is_array($arg_a[1]))
-             {
-                 $hdr->parameters = $arg_a[1]; 
-              }
-             if (isset($arg_a[2]))
-             {
-                $hdr->disposition = $arg_a[2];
-             }
-             if (isset($arg_a[3]))
-             {
-                $hdr->language = $arg_a[3];
-             }
-             $msg->header = $hdr;
-             return (array($msg, $i));
-          }
-       default:
-          break;
-        } /* switch */
-        $i++;
-      } /* while */
+    function parseStructure($read, $i = 0) {
+       $arg_no = 0;
+       $arg_a = array();
+       $cnt = strlen($read);
+
+       for (; $i < $cnt; ++$i) {
+           $char = strtoupper($read{$i});
+            switch ($char) {
+                case '(':
+                    if ($arg_no == 0) {
+                        if (!isset($msg)) {
+                            $msg = new message();
+                            $hdr = new msg_header();
+                            $hdr->type0 = 'text';
+                            $hdr->type1 = 'plain';
+                            $hdr->encoding = 'us-ascii';
+                            $msg->entity_id = $this->calcEntity($msg);
+                        } else {
+                            $msg->header->type0 = 'multipart';
+                            $msg->type0 = 'multipart';
+                            while ($read{$i} == '(') {
+                                $res = $msg->parseStructure($read, $i);
+                                $i = $res[1];
+                                $msg->addEntity($res[0]);
+                            }
+                        }
+                    } else {
+                        switch ($arg_no) {
+                            case 1:
+                                /* multipart properties */
+                                ++$i;
+                                $res = $this->parseProperties($read, $i);
+                                $arg_a[] = $res[0];
+                                $i = $res[1];
+                                ++$arg_no;
+                                break;
+                            case 2:
+                                if (isset($msg->type0) && ($msg->type0 == 'multipart')) {
+                                    ++$i;
+                                   $res = $msg->parseDisposition($read, $i);
+                                    $arg_a[] = $res[0];
+                                    $i = $res[1];
+                                } else { /* properties */
+                                    $res = $msg->parseProperties($read, $i);
+                                    $arg_a[] = $res[0];
+                                   $i = $res[1];
+                                }
+                                ++$arg_no;
+                                break;
+                            case 3:
+                                if (isset($msg->type0) && ($msg->type0 == 'multipart')) {
+                                    ++$i;
+                                    $res= $msg->parseLanguage($read, $i);
+                                    $arg_a[] = $res[0];
+                                    $i = $res[1];
+                                }
+                            case 7:
+                                if (($arg_a[0] == 'message') && ($arg_a[1] == 'rfc822')) {
+                                    $msg->header->type0 = $arg_a[0];
+                                    $msg->type0 = $arg_a[0];
+                                    $msg->header->type1 = $arg_a[1];
+                                    $msg->type1 = $arg_a[1];
+                                    $rfc822_hdr = new rfc822_header();
+                                    $res = $msg->parseEnvelope($read, $i, $rfc822_hdr);
+                                    $i = $res[1] + 1;
+                                    $msg->rfc822_header =  $res[0];
+                                    while (($i < $cnt) && ($read{$i} != '(')) {
+                                        ++$i;
+                                    }
+                                    $res = $msg->parseStructure($read, $i);
+                                    $i = $res[1];
+                                    $msg->addEntity($res[0]);
+                                }
+                                break;
+                            case 8:
+                                ++$i;
+                                $res = $msg->parseDisposition($read, $i);
+                                $arg_a[] = $res[0];
+                                $i = $res[1];
+                                ++$arg_no;
+                                break;
+                            case 9:
+                                ++$i;
+                                if (($arg_a[0] == 'text') || (($arg_a[0] == 'message') && ($arg_a[1] == 'rfc822'))) {
+                                    $res = $msg->parseDisposition($read, $i);
+                                } else {
+                                    $res = $msg->parseLanguage($read, $i);
+                                }
+                                $arg_a[] = $res[0];
+                                $i = $res[1];
+                                ++$arg_no;
+                                break;
+                           case 10:
+                               if (($arg_a[0] == 'text') || (($arg_a[0] == 'message') && ($arg_a[1] == 'rfc822'))) {
+                                   ++$i;
+                                   $res = $msg->parseLanguage($read, $i);
+                                   $arg_a[] = $res[0];
+                                   $i = $res[1];
+                               } else {
+                                   $i = $msg->parseParenthesis($read, $i);
+                                   $arg_a[] = ''; /* not yet desribed in rfc2060 */
+                               }
+                               ++$arg_no;
+                               break;
+                           default:
+                               /* unknown argument, skip this part */
+                               $i = $msg->parseParenthesis($read, $i);
+                               $arg_a[] = '';
+                               ++$arg_no;
+                               break;
+                       } /* switch */
+                   }
+                   break;
+               case '"':
+                   /* inside an entity -> start processing */
+                   $debug = substr($read, $i, 20);
+                   $res = $msg->parseQuote($read, $i);
+                   $arg_s = $res[0];
+                   $i = $res[1];
+                   ++$arg_no;
+                   if ($arg_no < 3) {
+                       $arg_s = strtolower($arg_s); /* type0 and type1 */
+                   }
+                   $arg_a[] = $arg_s;
+                   break;
+               case 'n':
+               case 'N':
+                   /* probably NIL argument */
+                   if (strtoupper(substr($read, $i, 4)) == 'NIL ') {
+                       $arg_a[] = '';
+                       ++$arg_no;
+                       $i += 2;
+                   }
+                    break;
+                case '{':
+                    /* process the literal value */
+                    $res = $msg->parseLiteral($read, $i);
+                    $arg_s = $res[0];
+                    $i = $res[1];
+                    ++$arg_no;
+                    break;
+                case is_numeric($read{$i}):
+                    /* process integers */
+                    if ($read{$i} == ' ') { break; }
+                    $arg_s = $read{$i};;
+                    for (++$i; preg_match('/^[0-9]{1}$/', $read{$i}); ++$i) {
+                        $arg_s .= $read{$i};
+                    }
+                    ++$arg_no;
+                    $arg_a[] = $arg_s;
+                    break;
+                case ')':
+                    $multipart = (isset($msg->type0) && ($msg->type0 == 'multipart'));
+                    if (!$multipart) {
+                        $shifted_args = (($arg_a[0] == 'text') || (($arg_a[0] == 'message') && ($arg_a[1] == 'rfc822')));
+                        $hdr->type0 = $arg_a[0];
+                        $hdr->type1 = $arg_a[1];
+
+                        $msg->type0 = $arg_a[0];
+                        $msg->type1 = $arg_a[1];
+
+                        $arr = $arg_a[2];
+                        if (is_array($arr)) {
+                            $hdr->parameters = $arg_a[2];
+                        }
+                        $hdr->id = str_replace('<', '', str_replace('>', '', $arg_a[3]));
+                        $hdr->description = $arg_a[4];
+                        $hdr->encoding = strtolower($arg_a[5]);
+                        $hdr->entity_id = $msg->entity_id;
+                        $hdr->size = $arg_a[6];
+                        if ($shifted_args) {
+                            $hdr->lines = $arg_a[7];
+                            $s = 1;
+                        } else {
+                            $s = 0;
+                        }
+                        $hdr->md5 = (isset($arg_a[7+$s]) ? $arg_a[7+$s] : $hdr->md5);
+                        $hdr->disposition = (isset($arg_a[8+$s]) ? $arg_a[8+$s] : $hdr->disposition);
+                        $hdr->language = (isset($arg_a[9+$s]) ? $arg_a[9+$s] : $hdr->language);
+                        $msg->header = $hdr;
+//                        $arg_no = 0;
+                        ++$i;
+                        if ((substr($msg->entity_id, -2) == '.0') && ($msg->type0 !='multipart')) {
+                           $msg->entity_id++;
+                        }
+                    } else {
+                        $hdr->type0 = 'multipart';
+                        $hdr->type1 = $arg_a[0];
+                        $msg->type0 = 'multipart';
+                        $msg->type1 = $arg_a[0];
+                        $hdr->parameters = (isset($arg_a[1]) ? $arg_a[1] : $hdr->parameters);
+                        $hdr->disposition = (isset($arg_a[2]) ? $arg_a[2] : $hdr->disposition);
+                        $hdr->language = (isset($arg_a[3]) ? $arg_a[3] : $hdr->language);
+                        $msg->header = $hdr;
+                    }
+                    return (array($msg, $i));
+                default: break;
+            } /* switch */
+
+        } /* for */
     } /* parsestructure */
-    
-    function parseProperties($read, $i)
-    {
-      $properties = array();
-      $arg_s = '';
-      $prop_name = '';
-      while ($read{$i} != ')')
-      {
-         if ($read{$i} == '"')
-        {
-           $res = $this->parseQuote($read,$i);
-           $arg_s = $res[0];
-           $i = $res[1];
-        } else if ($read{$i} == '{')
-        {
-           $res = $this->parseLiteral($read,$i);
-           $arg_s = $res[0];
-           $i = $res[1];
-         }
-        if ($prop_name == '' && $arg_s)
-        {
-           $prop_name = strtolower($arg_s);
-           $properties[$prop_name] = '';
-           $arg_s = '';            
-        } elseif ($prop_name != '' && $arg_s != '')
-        {
-           $properties[$prop_name] = $arg_s;
-           $prop_name = '';
-           $arg_s = '';
-        }
-        $i++;
-      }
-      return (array($properties, $i));
+
+    function parseProperties($read, $i) {
+        $properties = array();
+        $prop_name = '';
+        $arg_s = '';
+
+        for (; $read{$i} != ')'; ++$i) {
+            if ($read{$i} == '"') {
+                $res = $this->parseQuote($read, $i);
+                $arg_s = $res[0];
+                $i = $res[1];
+            } else if ($read{$i} == '{') {
+                $res = $this->parseLiteral($read, $i);
+                $arg_s = $res[0];
+                $i = $res[1];
+            }
+
+            if (($prop_name == '') && $arg_s) {
+                $prop_name = strtolower($arg_s);
+                $properties[$prop_name] = '';
+                $arg_s = '';
+            } else if (($prop_name != '') && ($arg_s != '')) {
+                $properties[$prop_name] = $arg_s;
+                $prop_name = '';
+                $arg_s = '';
+            }
+        }
+
+        return (array($properties, $i));
     }
-    
-    function parseEnvelope($read, $i, $hdr)
-    {
+
+    function parseEnvelope($read, $i, $hdr) {
         $arg_no = 0;
-       $arg_a = array();
-       $cnt = strlen($read);
-        while ($i< $cnt && $read{$i} != ')')
-       {
-          $i++;
-          $char = strtoupper($read{$i});
-          switch ($char) 
-          {
-          case '"':
-              $res = $this->parseQuote($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              $arg_no++;
-              break;
-          case '{':
-              $res = $this->parseLiteral($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              $arg_no++;
-              break;
-          case 'N':   
-              /* probably NIL argument */
-              if (strtoupper(substr($read,$i,3)) == 'NIL') {
-                 $arg_a[] = '';
-                 $arg_no++;
-                 $i = $i+2;
-              }      
-              break;
-          case '(':
-              /* Address structure 
-               * With group support.
-               * Note: Group support is useless on SMTP connections
-               * because the protocol doesn't support it
-               */
-              $addr_a = array();
-              $group = '';
-              $a=0;
-              while ($i < $cnt && $read{$i} != ')')
-              {
-                 if ($read{$i} == '(')
-                 {
-                    $res = $this->parseAddress($read,$i);
-                    $addr = $res[0];
-                    $i = $res[1];
-                    if ($addr->host == '' && $addr->mailbox != '')
-                    { 
-                       /* start of group */
-                       $group = $addr->mailbox;
-                       $group_addr = $addr;
-                       $j = $a;
-                    } elseif ($group && $addr->host == '' && $addr->mailbox == '')
-                    {
-                       /* end group */
-                       if ($a == $j+1) /* no group members */
-                       { 
-                          $group_addr->group = $group;
-                          $group_addr->mailbox = '';
-                          $group_addr->personal = "$group: Undisclosed recipients;";
-                          $addr_a[] = $group_addr;
-                          $group ='';
-                       }
-                    } else 
-                    {
-                       $addr->group = $group;
-                       $addr_a[] = $addr;
-                    }
-                    $a++;
-                 }
-                 $i++;
-              }
-              $arg_a[] = $addr_a;
-              break;
-          default:
-              break;
-          }
-          $i++;
-       }
-       if (count($arg_a) > 9)
-       {
-           /* argument 1: date */
+        $arg_a = array();
+        $cnt = strlen($read);
+
+        for (; ($i < $cnt) && ($read{$i} != ')'); ++$i) {
+            ++$i;
+            $char = strtoupper($read{$i});
+            switch ($char) {
+                case '"':
+                    $res = $this->parseQuote($read, $i);
+                    $arg_a[] = $res[0];
+                    $i = $res[1];
+                    ++$arg_no;
+                    break;
+                case '{':
+                    $res = $this->parseLiteral($read, $i);
+                    $arg_a[] = $res[0];
+                    $i = $res[1];
+                    ++$arg_no;
+                    break;
+                case 'N':
+                    /* probably NIL argument */
+                    if (strtoupper(substr($read, $i, 3)) == 'NIL') {
+                        $arg_a[] = '';
+                        ++$arg_no;
+                        $i += 2;
+                    }
+                    break;
+                case '(':
+                    /* Address structure (with group support)
+                     * Note: Group support is useless on SMTP connections
+                     *       because the protocol doesn't support it
+                     */
+                    $addr_a = array();
+                    $group = '';
+                    $a=0;
+                    for (; $i < $cnt && $read{$i} != ')'; ++$i) {
+                        if ($read{$i} == '(') {
+                            $res = $this->parseAddress($read, $i);
+                            $addr = $res[0];
+                            $i = $res[1];
+                            if (($addr->host == '') && ($addr->mailbox != '')) {
+                                /* start of group */
+                                $group = $addr->mailbox;
+                                $group_addr = $addr;
+                                $j = $a;
+                            } else if ($group && ($addr->host == '') && ($addr->mailbox == '')) {
+                               /* end group */
+                                if ($a == ($j+1)) { /* no group members */
+                                    $group_addr->group = $group;
+                                    $group_addr->mailbox = '';
+                                    $group_addr->personal = "$group: Undisclosed recipients;";
+                                    $addr_a[] = $group_addr;
+                                    $group ='';
+                                }
+                            } else {
+                                $addr->group = $group;
+                                $addr_a[] = $addr;
+                            }
+                            ++$a;
+                        }
+                    }
+                    $arg_a[] = $addr_a;
+                    break;
+                default: break;
+            }
+        }
+
+        if (count($arg_a) > 9) {
+            /* argument 1: date */
             $d = strtr($arg_a[0], array('  ' => ' '));
             $d = explode(' ', $d);
             $hdr->date = getTimeStamp($d);
-           /* argument 2: subject */
-           if (!trim($arg_a[1]))
-           {
-               $arg_a[1]= _("(no subject)");
-           }   
-           $hdr->subject = $arg_a[1];
-           /* argument 3: from */
-           $hdr->from = $arg_a[2][0];
-           /* argument 4: sender */        
-           $hdr->sender = $arg_a[3][0];
-           /* argument 5: reply-to */
-           $hdr->replyto = $arg_a[4][0];
-           /* argument 6: to */
-           $hdr->to = $arg_a[5];
-           /* argument 7: cc */
-           $hdr->cc = $arg_a[6];
-           /* argument 8: bcc */
-           $hdr->bcc = $arg_a[7];
-           /* argument 9: in-reply-to */
-           $hdr->inreplyto = $arg_a[8];
-           /* argument 10: message-id */
-           $hdr->message_id = $arg_a[9];
-       } 
-       return (array($hdr,$i));
+
+            /* argument 2: subject */
+            $arg_a[1] = (!trim($arg_a[1]) ? _("(no subject)") : $arg_a[1]);
+            $hdr->subject = $arg_a[1];
+
+            $hdr->from = $arg_a[2][0];     /* argument 3: from        */
+            $hdr->sender = $arg_a[3][0];   /* argument 4: sender      */
+            $hdr->replyto = $arg_a[4][0];  /* argument 5: reply-to    */
+            $hdr->to = $arg_a[5];          /* argument 6: to          */
+            $hdr->cc = $arg_a[6];          /* argument 7: cc          */
+            $hdr->bcc = $arg_a[7];         /* argument 8: bcc         */
+            $hdr->inreplyto = $arg_a[8];   /* argument 9: in-reply-to */
+            $hdr->message_id = $arg_a[9];  /* argument 10: message-id */
+        }
+        return (array($hdr, $i));
     }
-    
-    function parseLiteral($read, $i)
-    {
-       $lit_cnt = '';
-       $i++;
-       while ($read{$i} != '}')
-       {
-          $lit_cnt .= $read{$i};
-          $i++;
-       }
-       $lit_cnt +=2; /* add the { and } characters */
-       $s = '';
-       for ($j = 0; $j < $lit_cnt; $j++)
-       {
-          $i++;
-          $s .= $read{$i};
-       }
-       return (array($s, $i));
+
+    function parseLiteral($read, $i) {
+        $lit_cnt = '';
+        for (++$i; $read{$i} != '}'; ++$i) {
+            $lit_cnt .= $read{$i};
+        }
+
+        $lit_cnt +=2; /* add the { and } characters */
+        $s = '';
+        for ($j = 0; $j < $lit_cnt; ++$j) {
+            $s .= $read{++$i};
+        }
+        return (array($s, $i));
     }
-    
-    function parseQuote($read, $i)
-    {
-       $i++;
-       $s = '';
-       while ($read{$i} != '"')
-       {
-          if ($read{$i} == '\\')
-          {
-              $i++;
-          } 
-          $s .= $read{$i};
-          $i++;
-       }
-       return (array($s, $i)); 
+
+    function parseQuote($read, $i) {
+        $s = '';
+        for (++$i; $read{$i} != '"'; ++$i) {
+            if ($read{$i} == '\\') {
+                ++$i;
+             }
+             $s .= $read{$i};
+        }
+        return (array($s, $i));
     }
-    
-    function parseAddress($read, $i)
-    {
-       $arg_a = array();
-        while ($read{$i} != ')' )
-       { 
-          $char = strtoupper($read{$i});
-          switch ($char) 
-          {
-          case '"':
-              $res = $this->parseQuote($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case '{': 
-              $res = $this->parseLiteral($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case 'n':
-          case 'N':   
-              if (strtoupper(substr($read,$i,3)) == 'NIL') {
-                 $arg_a[] = '';
-                 $i = $i+2;
-              }
-              break;
-          default:
-              break;
-          }
-          $i++;
-       }
-       if (count($arg_a) == 4)
-       {
-           $adr = new address_structure();
-           $adr->personal = $arg_a[0];
-           $adr->adl = $arg_a[1];
-           $adr->mailbox = $arg_a[2];
-           $adr->host = $arg_a[3];
-       } else
-       {
-          $adr = '';
-       }
-       return (array($adr,$i));
+
+    function parseAddress($read, $i) {
+        $arg_a = array();
+
+        for (; $read{$i} != ')'; ++$i) {
+            $char = strtoupper($read{$i});
+            switch ($char) {
+                case '"':
+                case '{':
+                    $res = ($char == '"' ? $this->parseQuote($read, $i) : $this->parseLiteral($read, $i));
+                    $arg_a[] = $res[0];
+                    $i = $res[1];
+                    break;
+                case 'n':
+                case 'N':
+                    if (strtoupper(substr($read, $i, 3)) == 'NIL') {
+                        $arg_a[] = '';
+                        $i += 2;
+                    }
+                    break;
+                default: break;
+            }
+        }
+
+        if (count($arg_a) == 4) {
+            $adr = new address_structure();
+            $adr->personal = $arg_a[0];
+            $adr->adl = $arg_a[1];
+            $adr->mailbox = $arg_a[2];
+            $adr->host = $arg_a[3];
+        } else {
+            $adr = '';
+        }
+        return (array($adr, $i));
     }
-    
-    function parseDisposition($read,$i)
-    {
+
+    function parseDisposition($read, $i) {
         $arg_a = array();
-        while ($read{$i} != ')')
-       {
-          switch ($read{$i}) 
-          {
-          case '"':
-              $res = $this->parseQuote($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case '{': 
-              $res = $this->parseLiteral($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case '(':
-              $res = $this->parseProperties($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          default:
-              break;
-          }
-          $i++;
+
+        for (; $read{$i} != ')'; ++$i) {
+            switch ($read{$i}) {
+                case '"':
+                case '{':
+                case '(':
+                    switch ($read{$i}) {
+                        case '"': $res = $this->parseQuote($read, $i); break;
+                        case '{': $res = $this->parseLiteral($read, $i); break;
+                        case '(': $res = $this->parseProperties($read, $i); break;
+                    }
+                    $arg_a[] = $res[0];
+                    $i = $res[1];
+                    break;
+                default: break;
+            }
         }
-       if (isset($arg_a[0]))
-       {
-          $disp = new disposition($arg_a[0]);
-          if (isset($arg_a[1]))
-          {
-             $disp->properties = $arg_a[1];
-          }
-       }
-       if (is_object($disp))
-       { 
-          return (array($disp, $i));
-       } else
-       {
-          return (array('',$i));
-       }
+
+        if (isset($arg_a[0])) {
+            $disp = new disposition($arg_a[0]);
+            if (isset($arg_a[1])) {
+                $disp->properties = $arg_a[1];
+            }
+        }
+
+        return (is_object($disp) ? array($disp, $i) : array('', $i));
     }
-    
-    function parseLanguage($read,$i) 
-    {
+
+    function parseLanguage($read, $i) {
         /* no idea how to process this one without examples */
         $arg_a = array();
-        while ($read{$i} != ')')
-       {
-          switch ($read{$i})
-          {
-          case '"':
-              $res = $this->parseQuote($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case '{': 
-              $res = $this->parseLiteral($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          case '(':
-              $res = $this->parseProperties($read,$i);
-              $arg_a[] = $res[0];
-              $i = $res[1];
-              break;
-          default:
-              break;
-          }
-          $i++;
+
+        for (; $read{$i} != ')'; ++$i) {
+            switch ($read{$i}) {
+                case '"':
+                case '{':
+                case '(':
+                    switch ($read{$i}) {
+                        case '"': $res = $this->parseQuote($read, $i); break;
+                        case '{': $res = $this->parseLiteral($read, $i); break;
+                        case '(': $res = $this->parseProperties($read, $i); break;
+                    }
+                    $arg_a[] = $res[0];
+                    $i = $res[1];
+                    break;
+                default: break;
+            }
         }
-       if (isset($arg_a[0]))
-       {
-          $lang = new language($arg_a[0]);
-          if (isset($arg_a[1]))
-          {
-             $lang->properties = $arg_a[1];
-          }
-       }
-       if (is_object($lang))
-       { 
-          return (array($lang, $i));
-       } else
-       {
-          return (array('', $i));
+
+        if (isset($arg_a[0])) {
+            $lang = new language($arg_a[0]);
+            if (isset($arg_a[1])) {
+                $lang->properties = $arg_a[1];
+            }
         }
+
+        return (is_object($lang) ? array($lang, $i) : array('', $i));
     }
-    
-    function parseParenthesis($read,$i)
-    {
-        while ($read{$i} != ')')
-       {
-          switch ($read{$i})
-          {
-          case '"':
-              $res = $this->parseQuote($read,$i);
-              $i = $res[1];
-              break;
-          case '{': 
-              $res = $this->parseLiteral($read,$i);
-              $i = $res[1];           
-              break;
-          case '(':
-              $res = $this->parseParenthesis($read,$i);
-              $i = $res[1];           
-              break;
-          default:
-              break;
-          }
-          $i++;
-        } 
-       return $i;
+
+    function parseParenthesis($read, $i) {
+        for (; $read{$i} != ')'; ++$i) {
+            switch ($read{$i}) {
+                case '"':
+                case '{':
+                case '(':
+                    switch ($read{$i}) {
+                        case '"': $res = $this->parseQuote($read, $i); break;
+                        case '{': $res = $this->parseLiteral($read, $i); break;
+                        case '(': $res = $this->parseProperties($read, $i); break;
+                    }
+                    $i = $res[1];
+                    break;
+                default: break;
+            }
+        }
+        return $i;
     }
 
-    /* function to fill the message structure in case the bodystructure 
-    isn't available NOT FINISHED YET
-    */
-    function parseMessage($read, $type0, $type1)
-    {
-        switch ($type0)
-       {
-       case 'message':
-           $rfc822_header = true;
-           $mime_header = false;
-           break;
-       case 'multipart':
-           $mime_header = true;
-           $rfc822_header = false;
-           break;
-       default:
-           return $read;
-       }
-
-       for ($i=1; $i < $count; $i++) 
-       {
-           $line = trim($body[$i]);
-           if ( ( $mime_header || $rfc822_header) && 
-                (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i",$line,$reg)) )
-           {
-               $bnd = $reg[1];
-               $bndreg = $bnd;    
-               $bndreg = str_replace("\\","\\\\",$bndreg);     
-               $bndreg = str_replace("?","\\?",$bndreg);
-               $bndreg = str_replace("+","\\+",$bndreg);               
-               $bndreg = str_replace(".","\\.",$bndreg);                       
-               $bndreg = str_replace("/","\\/",$bndreg);
-               $bndreg = str_replace("-","\\-",$bndreg);
-               $bndreg = str_replace("(","\\(",$bndreg);
-               $bndreg = str_replace(")","\\)",$bndreg);
-           } elseif ( $rfc822_header && $line == '' )
-           {   
-               $rfc822_header = false;
-               if ($msg->type0 == 'multipart')
-               {
-                   $mime_header = true;
-               }
-           }    
-    
-           if (($line{0} == '-' || $rfc822_header)  && isset($boundaries[0]))
-           {
-               $cnt=count($boundaries)-1;
-               $bnd = $boundaries[$cnt]['bnd'];
-               $bndreg = $boundaries[$cnt]['bndreg'];
-      
-               $regstr = '/^--'."($bndreg)".".*".'/';
-               if (preg_match($regstr,$line,$reg) )
-               {
-                   $bndlen = strlen($reg[1]);
-                   $bndend = false;        
-                   if (strlen($line) > ($bndlen + 3))
-                   {
-                       if ($line{$bndlen+2} == '-' && $line{$bndlen+3} == '-') 
-                           $bndend = true;
-                   }
-                   if ($bndend)
-                   {
-                       /* calc offset and return $msg */
-       //              $entStr = CalcEntity("$entStr",-1);
-                       array_pop($boundaries);
-                       $mime_header = true;
-                       $bnd_end = true;
-                   } else 
-                   {
-                       $mime_header = true;
-                       $bnd_end = false;
-//             $entStr = CalcEntity("$entStr",0);
-                       $content_indx++;
-                   }
-               }  else 
-               {
-                   if ($header) 
-                   {
-                   }             
-               }
-           }  
-       }
+    /* Function to fill the message structure in case the */
+    /* bodystructure is not available NOT FINISHED YET    */
+    function parseMessage($read, $type0, $type1) {
+        switch ($type0) {
+            case 'message':
+                $rfc822_header = true;
+                $mime_header = false;
+                break;
+            case 'multipart':
+                $rfc822_header = false;
+                $mime_header = true;
+                break;
+            default: return $read;
+        }
+
+        for ($i = 1; $i < $count; ++$i) {
+            $line = trim($body[$i]);
+            if (($mime_header || $rfc822_header) &&
+                (preg_match("/^.*boundary=\"?(.+(?=\")|.+).*/i", $line, $reg))) {
+                $bnd = $reg[1];
+                $bndreg = $bnd;
+                $bndreg = str_replace("\\", "\\\\", $bndreg);
+                $bndreg = str_replace("?", "\\?", $bndreg);
+                $bndreg = str_replace("+", "\\+", $bndreg);
+                $bndreg = str_replace(".", "\\.", $bndreg);
+                $bndreg = str_replace("/", "\\/", $bndreg);
+                $bndreg = str_replace("-", "\\-", $bndreg);
+                $bndreg = str_replace("(", "\\(", $bndreg);
+                $bndreg = str_replace(")", "\\)", $bndreg);
+            } else if ($rfc822_header && $line == '') {
+                $rfc822_header = false;
+                if ($msg->type0 == 'multipart') {
+                    $mime_header = true;
+                }
+            }
+
+            if ((($line{0} == '-') || $rfc822_header)  && isset($boundaries[0])) {
+                $cnt=count($boundaries)-1;
+                $bnd = $boundaries[$cnt]['bnd'];
+                $bndreg = $boundaries[$cnt]['bndreg'];
+
+                $regstr = '/^--'."($bndreg)".".*".'/';
+                if (preg_match($regstr, $line, $reg)) {
+                    $bndlen = strlen($reg[1]);
+                    $bndend = false;
+                    if (strlen($line) > ($bndlen + 3)) {
+                        if (($line{$bndlen+2} == '-') && ($line{$bndlen+3} == '-')) {
+                            $bndend = true;
+                        }
+                    }
+                    if ($bndend) {
+                        /* calc offset and return $msg */
+                        //$entStr = CalcEntity("$entStr", -1);
+                        array_pop($boundaries);
+                        $mime_header = true;
+                        $bnd_end = true;
+                    } else {
+                        $mime_header = true;
+                         $bnd_end = false;
+                        //$entStr = CalcEntity("$entStr", 0);
+                        ++$content_indx;
+                    }
+                } else {
+                    if ($header) { }
+                }
+            }
+        }
     }
 
-    function findDisplayEntity ($entity = array(), $alt_order = array('text/plain','text/html'))
-    {
-       $found = false;    
-       $type = $this->type0.'/'.$this->type1;
-       if ( $type == 'multipart/alternative')
-       {
-           $msg = $this->findAlternativeEntity($alt_order);
-           if (count($msg->entities) == 0)
-           {
-               $entity[] = $msg->entity_id;
-           } else 
-           {
-               $entity = $msg->findDisplayEntity($entity, $alt_order);
-           }
-           $found = true;          
-       } else if ( $type == 'multipart/related') 
-       {
+    function findDisplayEntity($entity = array(), $alt_order = array('text/plain', 'text/html')) {
+        $found = false;
+        $type = $this->type0.'/'.$this->type1;
+        if ($type == 'multipart/alternative') {
+            $msg = $this->findAlternativeEntity($alt_order);
+            if (count($msg->entities) == 0) {
+                $entity[] = $msg->entity_id;
+            } else {
+                $entity = $msg->findDisplayEntity($entity, $alt_order);
+            }
+            $found = true;
+        } else if ($type == 'multipart/related') {
             $msgs = $this->findRelatedEntity();
-           for ($i = 0; $i < count($msgs); $i++)
-           {
-               $msg = $msgs[$i];
-               if (count($msg->entities) == 0)
-               {
-                   $entity[] = $msg->entity_id;
-               } else
-               {
-                   $entity = $msg->findDisplayEntity($entity,$alt_order);
-               }
-               $found = true;          
-           }
-       } else if ( $this->type0 == 'text' &&
-             ( $this->type1 == 'plain' ||
-               $this->type1 == 'html' ||
-              $this->type1 == 'message') &&
-               isset($this->entity_id) ) 
-       {
-         if (count($this->entities) == 0) 
-          {
-           if (strtolower($this->header->disposition->name) != 'attachment') 
-           {
-                $entity[] = $this->entity_id;
-           }
-         }
-       } 
-       $i = 0;
-       while ( isset($this->entities[$i]) &&  !$found &&
-             (strtolower($this->entities[$i]->header->disposition->name) 
-               != 'attachment') &&
-             ($this->entities[$i]->type0 != 'message' && 
-             $this->entities[$i]->type1 != 'rfc822' )
-            )
-       {
-           $entity = $this->entities[$i]->findDisplayEntity($entity, $alt_order);
-           $i++;
-       }
-       return( $entity );
+            foreach ($msgs as $msg) {
+                if (count($msg->entities) == 0) {
+                    $entity[] = $msg->entity_id;
+                } else {
+                    $entity = $msg->findDisplayEntity($entity, $alt_order);
+                }
+            }
+            if (count($msgs) > 0) {
+                $found = true;
+            }
+        } else if (($this->type0 == 'text') &&
+                   (($this->type1 == 'plain') ||
+                    ($this->type1 == 'html')  ||
+                    ($this->type1 == 'message')) &&
+                   isset($this->entity_id)) {
+            if (count($this->entities) == 0) {
+                if (strtolower($this->header->disposition->name) != 'attachment') {
+                    $entity[] = $this->entity_id;
+                }
+            }
+        }
+        $i = 0;
+        if (!$found) {
+            foreach ($this->entities as $ent) {
+                if((strtolower($ent->header->disposition->name) != 'attachment') &&
+                   (($ent->type0 != 'message') && ($ent->type1 != 'rfc822'))) {
+                    $entity = $ent->findDisplayEntity($entity, $alt_order);
+                }
+            }
+        }
+
+        /* CAN THIS BE REMOVED? IF SO, DO IT!!! */
+        //while (isset($this->entities[$i]) && !$found &&
+        //        (strtolower($this->entities[$i]->header->disposition->name)
+        //         != 'attachment') &&
+        //        ($this->entities[$i]->type0 != 'message' &&
+        //         $this->entities[$i]->type1 != 'rfc822')
+        //     ) {
+        //    $entity = $this->entities[$i]->findDisplayEntity($entity, $alt_order);
+        //    ++$i;
+        //}
+
+        return ($entity);
     }
 
-    function findAlternativeEntity ($alt_order)
-    {
-       /* if we are dealing with alternative parts then we choose the best 
-        * viewable message supported by SM.
-        */
+    function findAlternativeEntity($alt_order) {
+        /* If we are dealing with alternative parts then we  */
+        /* choose the best viewable message supported by SM. */
         $best_view = 0;
-        $ent_id = 0;
-        $k = 0; 
-        for ($i = 0; $i < count($this->entities); $i ++)
-       {
-            $type = $this->entities[$i]->header->type0.'/'.$this->entities[$i]->header->type1;
-           if ($type == 'multipart/related')
-           {
-              $type = $this->entities[$i]->header->getParameter('type');
-           }
-           for ($j = $k; $j < count($alt_order); $j++)
-           {
-               if ($alt_order[$j] == $type && $j > $best_view)
-               {
-                   $best_view = $j;
-                   $ent_id = $i;
-                   $k = $j;
-               }
-           }
+        $entity = array();
+        $altcount = count($alt_order);
+
+        foreach($this->entities as $ent) {
+            $type = $ent->header->type0 . '/' . $ent->header->type1;
+            if ($type == 'multipart/related') {
+                $type = $ent->header->getParameter('type');
+            }
+            for ($j = $best_view; $j < $altcount; ++$j) {
+                if (($alt_order[$j] == $type) && ($j >= $best_view)) {
+                    $best_view = $j;
+                    $entity = $ent;
+                }
+            }
         }
-        return $this->entities[$ent_id];
+
+        return $entity;
     }
-    
-    function findRelatedEntity ()
-    {
-        $msgs = array(); 
-        for ($i = 0; $i < count($this->entities); $i ++)
-       {
+
+    function findRelatedEntity() {
+        $msgs = array();
+        $entcount = count($this->entities);
+
+        for ($i = 0; $i < $entcount; ++$i) {
             $type = $this->entities[$i]->header->type0.'/'.$this->entities[$i]->header->type1;
-            if ($this->header->getParameter('type') == $type)
-           {
-               $msgs[] = $this->entities[$i];
-           }
+            if ($this->header->getParameter('type') == $type) {
+                $msgs[] = $this->entities[$i];
+            }
         }
+
         return $msgs;
     }
-    
-    function getAttachments($exclude_id=array(), $result = array())
-    {
-       if ($this->type0 == 'message' && $this->type1 == 'rfc822')
-       {
-          $this = $this->entities[0];
-       }
-       if (count($this->entities))
-       {
-          foreach ($this->entities as $entity)
-         {
-           $exclude = false;
-           foreach ($exclude_id as $excl)
-           {
-               if ($entity->entity_id == $excl)
-              {
-                 $exclude = true;
-              }
-           }
-           if (!$exclude)
-           {
-              if ($entity->type0 == 'multipart' && 
-                  $entity->type1 != 'related')
-              {
-                 $result = $entity->getAttachments($exclude_id, $result);
-              } else if ($entity->type0 != 'multipart')
-              {
-                 $result[] = $entity;
-              }
-           }
-          }
-       } else
-       {
-          $exclude = false;
-         foreach ($exclude_id as $excl)
-         {
-             if ($this->entity_id == $excl)
-            {
-               $exclude = true;
-            }
-         }
-          if (!$exclude)
-         {
-             $result[] = $this;
-         }
-       }
-       return $result;
-    }              
+
+    function getAttachments($exclude_id=array(), $result = array()) {
+        if (($this->type0 == 'message') && ($this->type1 == 'rfc822')) {
+            $this = $this->entities[0];
+        }
+
+        if (count($this->entities)) {
+            foreach ($this->entities as $entity) {
+                $exclude = false;
+
+                foreach ($exclude_id as $excl) {
+                    if ($entity->entity_id === $excl) {
+                        $exclude = true;
+                    }
+                }
+
+                if (!$exclude) {
+                    if (($entity->type0 == 'multipart') &&
+                        ($entity->type1 != 'related')) {
+                        $result = $entity->getAttachments($exclude_id, $result);
+                    } else if ($entity->type0 != 'multipart') {
+                        $result[] = $entity;
+                    }
+                }
+            }
+        } else {
+            $exclude = false;
+            foreach ($exclude_id as $excl) {
+                $exclude = $exclude || ($this->entity_id == $excl);
+            }
+
+            if (!$exclude) {
+                $result[] = $this;
+            }
+        }
+
+        return $result;
+    }
 }
 
-class smime_message
-{
+class smime_message {
+
 }
 
-class disposition
-{
-    function disposition($name)
-    {
+class disposition {
+    function disposition($name) {
        $this->name = $name;
        $this->properties = array();
     }
 
-    function getProperty($par)
-    {
+    function getProperty($par) {
         $value = strtolower($par);
-        if (isset($this->properties[$par]))
-       {
-           return $this->properties[$par];
+        if (isset($this->properties[$par])) {
+            return $this->properties[$par];
         }
         return '';
     }
-
 }
 
-class language
-{
-    function language($name)
-    {
+class language {
+    function language($name) {
        $this->name = $name;
        $this->properties = array();
     }
 }
 
-class content_type
-{
-    var $type0='text', 
-        $type1='plain', 
-       $properties='';
-    function content_type($type)
-    {
-       $pos = strpos($type,'/');
-       if ($pos > 0)
-       {
-          $this->type0 = substr($type,0,$pos);
-          $this->type1 = substr($type,$pos+1);
-       } else
-       {
-          $this->type0 = $type;
-       }
-       $this->properties = array();
+class content_type {
+    var $type0      = 'text',
+        $type1      = 'plain',
+        $properties = '';
+
+    function content_type($type) {
+        $pos = strpos($type, '/');
+        if ($pos > 0) {
+            $this->type0 = substr($type, 0, $pos);
+            $this->type1 = substr($type, $pos+1);
+        } else {
+            $this->type0 = $type;
+        }
+        $this->properties = array();
     }
 }