function to_string($_data) {
switch($_data[1]) {
- case 0: $res = '^TO'; break;
+ case 0:
+ $res = '^(^((Original-)?(Resent-)?(To|Cc|Bcc)|(X-Envelope|Apparently(-Resent)?)-To):(.*[^-a-zA-Z0-9_.])?)';
+ break;
case 1: $res = '^Subject:'; break;
case 2: $res = '^From:'; break;
case 3: $res = '^To:'; break;
case 8: $res = '^X-Mailing-List:'; break;
}
switch($_data[2]) {
- case 0: $res = "* $res.*{$_data[3]}\n"; break;
- case 1: $res = "* !$res.*{$_data[3]}\n"; break;
- case 2: $res = "* $res {$_data[3]}$\n"; break;
- case 3: $res = "* !$res {$_data[3]}$\n"; break;
+ case 0: $res = "(/$res.*{$_data[3]}/:h)"; break;
+ case 1: $res = "!(/$res.*{$_data[3]}/:h)"; break;
+ case 2: $res = "(/$res {$_data[3]}$/:h)"; break;
+ case 3: $res = "!(/$res {$_data[3]}$/:h)"; break;
}
return $res;
}