Import 1769

git-svn-id: svn+ssh://murphy/home/svn/platal/branches/platal-0.9.14@1770 839d8a87-29fc-0310-9880-83ba4fa771e5

diff --git a/include/banana/ml.inc.php b/include/banana/ml.inc.php
index 6eb7b0c..60d2fee 100644 (file)
--- a/include/banana/ml.inc.php
+++ b/include/banana/ml.inc.php
@@ -85,13 +85,13 @@ class BananaMLArchive extends BananaMBox
     {
         global $globals;
         $spool = $globals->lists->spool . '/';
-        $list = glob($spool . '*.mbox', GLOB_ONLYDIR);
+        $list = glob($spool . '*.mbox/*.mbox');
         if ($list === false) {
             return array();
         }
         $groups = array();
         foreach ($list as $path) {
-            $path = substr($path, strlen($spool));
+            $path = substr($path, strpos($path, 'mbox/') + 5);
             $path = substr($path, 0, -5);
             list($domain, $listname) = explode($globals->lists->vhost_sep, $path, 2);
             $group = $listname . '@' . $domain;