package ALMail32
@ISA = qw()

sub BEGIN

sub new
my ($module) = @_;
return $this;

sub DESTROY
my $this = shift;

sub SetAccountDir
sub SetAccountDir() { my ($this,$d)=

sub GetAccountDir
my ($this) = @_;
return $this->{AccountDir};

sub AccountDir
sub AccountDir()    { my ($this)=
return $this->{AccountDir};

sub GetMailboxDir
my ($this) = @_;
return $AccountDir;
return $MailboxDir;

sub pFolders
return shift->{pFolders};

sub nFolders
return shift->{nFolders};

sub GetALMailFolderTitle
my ($this, $FolderPath, $IsPrint) = @_;
return '' if(!-d $FolderPath);
return ('�X�֎�', 'Mailfolder') if($filename eq 'Inbox.box');
return ('���M��', 'Mailfolder')   if($filename eq 'Outbox.box');
return ('', '') if(!-f $IniPath and !$IsPrint);
return ($title, $Type);

sub GetFolderInf
my ($this, $i) = @_;
return $pInf;

sub GetFolderList
my ($this) = @_;

sub SearchFolders
my ($this, $ParentDir, $ParentFolder) = @_;

sub SearchFolderByTitle
my ($this, $title) = @_;
return $pInf if($title eq uc $pInf->{Title});
return undef;

sub GetTrashboxHash
my ($this, $AccountDir) = @_;
return {} if(!-f $TrashboxPath);
return if(!$in->Open($TrashboxPath, 'r'));