[aMail-checkins] CVS: new_project/program/lib/Storage EMail.pm,1.9,1.10

[Victor A. R. <bi...@us...>]

Update of /cvsroot/amail/new_project/program/lib/Storage
In directory usw-pr-cvs1:/tmp/cvs-serv2286/program/lib/Storage

Modified Files:
	EMail.pm 
Log Message:
Bug corrected for folders creation using the new TRex::Storage interface


Index: EMail.pm
===================================================================
RCS file: /cvsroot/amail/new_project/program/lib/Storage/EMail.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** EMail.pm	29 Aug 2002 17:36:34 -0000	1.9
--- EMail.pm	6 Sep 2002 21:46:13 -0000	1.10
***************
*** 187,191 ****
      my $authMethod = shift;
      my @param = @_;
!     
      $_ = $authMethod;
      
--- 187,191 ----
      my $authMethod = shift;
      my @param = @_;
!     my @folders;    
      $_ = $authMethod;
      
***************
*** 223,227 ****
              seek MAILBOX, 0, 0;
              print MAILBOX @folders,"\n",@messages;
!             close MAILBOX;
  
  	    print STDERR   "Folder created !!!\n"     if $Debug;
--- 223,228 ----
              seek MAILBOX, 0, 0;
              print MAILBOX @folders,"\n",@messages;
!             my $status = close MAILBOX;
!             print STDERR   "close status: $status\n"   if $Debug;
  
  	    print STDERR   "Folder created !!!\n"     if $Debug;