[popfile-commit] engine/Services IMAP.pm,1.9.4.6,1.9.4.7

[Manni H. <man...@us...>]

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 );