|
From: Manni H. <man...@us...> - 2007-11-13 10:38:36
|
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 ); |