| | |
| | | | | |
| | | | This file is part of the Roundcube Webmail client | |
| | | | Copyright (C) 2005-2009, The Roundcube Dev Team | |
| | | | Licensed under the GNU GPL | |
| | | | | |
| | | | Licensed under the GNU General Public License version 3 or | |
| | | | any later version with exceptions for skins & plugins. | |
| | | | See the README file for a full license statement. | |
| | | | | |
| | | | PURPOSE: | |
| | | | Implement folder operations line EXPUNGE and Clear | |
| | |
| | | // send EXPUNGE command |
| | | if ($RCMAIL->action == 'expunge') { |
| | | |
| | | $success = $RCMAIL->imap->expunge($mbox); |
| | | $success = $RCMAIL->storage->expunge_folder($mbox); |
| | | |
| | | // reload message list if current mailbox |
| | | if ($success) { |
| | |
| | | // clear mailbox |
| | | else if ($RCMAIL->action == 'purge') |
| | | { |
| | | $delimiter = $RCMAIL->imap->get_hierarchy_delimiter(); |
| | | $delimiter = $RCMAIL->storage->get_hierarchy_delimiter(); |
| | | $trash_regexp = '/^' . preg_quote($CONFIG['trash_mbox'] . $delimiter, '/') . '/'; |
| | | $junk_regexp = '/^' . preg_quote($CONFIG['junk_mbox'] . $delimiter, '/') . '/'; |
| | | |
| | |
| | | if ($mbox == $CONFIG['trash_mbox'] || $mbox == $CONFIG['junk_mbox'] |
| | | || preg_match($trash_regexp, $mbox) || preg_match($junk_regexp, $mbox) |
| | | ) { |
| | | $success = $RCMAIL->imap->clear_mailbox($mbox); |
| | | $success = $RCMAIL->storage->clear_folder($mbox); |
| | | |
| | | if ($success) { |
| | | $OUTPUT->show_message('folderpurged', 'confirmation'); |