Update of /cvsroot/popfile/engine/Services
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9132/Services
Modified Files:
Tag: b0_22_2
IMAP.pm
Log Message:
Squashed a little bug: we didn't update our list of mailboxes when logging in through a single connection.
Index: IMAP.pm
===================================================================
RCS file: /cvsroot/popfile/engine/Services/IMAP.pm,v
retrieving revision 1.9.4.6
retrieving revision 1.9.4.7
diff -C2 -d -r1.9.4.6 -r1.9.4.7
*** IMAP.pm 11 Nov 2007 16:42:54 -0000 1.9.4.6
--- IMAP.pm 13 Nov 2007 10:38:33 -0000 1.9.4.7
***************
*** 529,532 ****
--- 529,537 ----
}
+ # Build a list of IMAP mailboxes if we haven't already got one:
+ unless ( @{$self->{mailboxes__}} ) {
+ @{$self->{mailboxes__}} = $imap->get_mailbox_list();
+ }
+
# Do a STATUS to check UIDVALIDITY and UIDNEXT
my $info = $imap->status( $folder );
***************
*** 1202,1206 ****
if ( $name eq 'imap_1_watch_folders' ) {
! # We can only configure this when we have a list of mailboxes available on the server
if ( @{$self->{mailboxes__}} < 1 || ( ! $self->watched_folders__() ) ) {
$templ->param( IMAP_if_mailboxes => 0 );
--- 1207,1211 ----
if ( $name eq 'imap_1_watch_folders' ) {
! # We can only configure this if we have a list of mailboxes on the server available
if ( @{$self->{mailboxes__}} < 1 || ( ! $self->watched_folders__() ) ) {
$templ->param( IMAP_if_mailboxes => 0 );
|
