/** * Returns e-mail information for a mailing list. * * @param Horde_Mime_Headers $headers A Horde_Mime_Headers object. * * @return array An array with 2 elements: 'exists' and 'reply_list'. */ public function getListInformation($headers) { $ret = array('exists' => false, 'reply_list' => null); if ($headers->listHeadersExist()) { $ret['exists'] = true; /* See if the List-Post header provides an e-mail address for the * list. */ if ($val = $headers->getValue('list-post')) { foreach ($GLOBALS['injector']->getInstance('Horde_ListHeaders')->parse('list-post', $val) as $val2) { if ($val2 instanceof Horde_ListHeaders_NoPost) { break; } elseif (stripos($val2->url, 'mailto:') === 0) { $ret['reply_list'] = substr($val2->url, 7); break; } } } } return $ret; }