From c10512eb6307670e402bfb43bb5725a0fe89cd04 Mon Sep 17 00:00:00 2001
From: kink <kink@7612ce4b-ef26-0410-bec9-ea0150e637f0>
Date: Thu, 17 May 2007 15:39:06 +0000
Subject: [PATCH] using split() with wrong perl regexes will not work.

git-svn-id: https://svn.code.sf.net/p/squirrelmail/code/trunk/squirrelmail@12397 7612ce4b-ef26-0410-bec9-ea0150e637f0
---
 class/mime/Rfc822Header.class.php | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/class/mime/Rfc822Header.class.php b/class/mime/Rfc822Header.class.php
index ccb38c55..eb6576cf 100644
--- a/class/mime/Rfc822Header.class.php
+++ b/class/mime/Rfc822Header.class.php
@@ -656,7 +656,7 @@ class Rfc822Header {
      */
     function parsePriority($sValue) {
         // don't use function call inside array_shift.
-        $aValue = split('/\w/',trim($sValue));
+        $aValue = preg_split('/\s/',trim($sValue));
         $value = strtolower(array_shift($aValue));
 
         if ( is_numeric($value) ) {
-- 
2.25.1