
=head1 NAME

Mail::Box - manage a mailbox, a folder with messages


=head1 INHERITANCE

 Mail::Box
   is a Mail::Reporter

 Mail::Box is extended by
   Mail::Box::Dir
   Mail::Box::File
   Mail::Box::Net


=head1 SYNOPSIS

 use L<Mail::Box::Manager|Mail::Box::Manager>;
 my $mgr    = Mail::Box::Manager->new;
 my $folder = $mgr->open(folder => $ENV{MAIL}, ...);
 print $folder->name;

 # Get the first message.
 print $folder->message(0);

 # Delete the third message
 $folder->message(3)->delete;

 # Get the number of messages in scalar context.
 my $emails = $folder->messages;

 # Iterate over the messages.
 foreach ($folder->messages) {...} # all messages
 foreach (@$folder) {...}          # all messages

 $folder->addMessage(L<Mail::Box::Message|Mail::Box::Message>->new(...));

Tied-interface:

 tie my(@inbox), 'L<Mail::Box::Tie::ARRAY|Mail::Box::Tie::ARRAY>', $inbox;

 # Four times the same:
 $inbox[3]->print;                 # tied
 $folder->[3]->print;              # overloaded folder
 $folder->message(3)->print;       # usual
 print $folder->[3];               # overloaded message

 tie my(%inbox), 'L<Mail::Box::Tie::HASH|Mail::Box::Tie::HASH>', $inbox;

 # Twice times the same
 $inbox{$msgid}->print;            # tied
 $folder->messageId($msgid)->print;# usual


=head1 DESCRIPTION

A L<Mail::Box::Manager|Mail::Box::Manager> creates C<Mail::Box> objects.  But you already
knew, because you started with the L<Mail::Box-Overview|Mail::Box-Overview> manual page.
That page is obligatory reading, sorry!

C<Mail::Box> is the base class for accessing various types of mailboxes
(folders) in a uniform manner.  The various folder types vary on how
they store their messages, but when some effort those differences could
be hidden behind a general API. For example, some folders store many
messages in one single file, where other store each message in a separate
file withing the same directory.

No object in your program will be of type C<Mail::Box>: it is only used
as base class for the real folder types.  C<Mail::Box> is extended by

=over 4

=item * L<Mail::Box::Mbox|Mail::Box::Mbox>

a folder type in which all related messages are stored in one file.  This
is very common folder type for UNIX.

=item * L<Mail::Box::MH|Mail::Box::MH>

this folder creates a directory for each folder, and a message is one
file inside that directory.  The message files are numbered sequentially
on order of arrival.  A special C<.mh_sequences> file maintains flags
about the messages.

=item * L<Mail::Box::Maildir|Mail::Box::Maildir>

maildir folders have a directory for each folder, although the first
implementation only supported one folder in total.  A folder directory
contains a C<tmp>, C<new>, and C<cur> subdirectory, each containting
messages with a different purpose.  New messages are created in C<tmp>,
then moved to C<new> (ready to be accepted).  Later, they are moved to
the C<cur> directory (accepted).  Each message is one file with a name
starting with timestamp.  The name also contains flags about the status
of the message.

=item * L<Mail::Box::POP3|Mail::Box::POP3>

Pop3 is a protocol which can be used to retreive messages from a
remote system.  After the connection to a POP server is made, the
messages can be looked at and removed as if they are on the local
system.

=item * L<Mail::Box::Dbx|Mail::Box::Dbx>

Dbx files are created by Outlook Express. Using the external (optional)
Mail::Transport::Dbx module, you can read these folders.  Writing and
deletion of messages is not supported. Read access is enough to do
folder conversions, for instance.

=back

Other folder types are on the (long) wishlist to get implemented.  Please,
help implementing more of them.


=head1 OVERLOADED


overload: B<"">

=over 4

(stringification)
The folder objects stringify to their name.  This simplifies especially
print statements and sorting a lot.

I<Example:> use overloaded folder as string


 # Three lines with overloading: resp. cmp, @{}, and ""
 foreach my $folder (sort @folders)
 {   my $msgcount = @$folder;
     print "$folder contains $msgcount messages\n";
 }

=back

overload: B<@{}>

=over 4

When the folder is used as if it is a reference to an array, it will
show the messages, like L<messages()|"The messages"> and L<message()|"The messages"> would do.

I<Example:> use overloaded folder as array


 my $msg = $folder->[3];
 my $msg = $folder->message(3);          # same

 foreach my $msg (@$folder) ...
 foreach my $msg ($folder->messages) ... # same

=back

overload: B<cmp>

=over 4

(string comparison) folders are compared based on their name.  The sort
rules are those of the build-in C<cmp>.

=back


=head1 METHODS


=head2 Constructors


$obj-E<gt>B<create>(FOLDERNAME, OPTIONS)

Mail::Box-E<gt>B<create>(FOLDERNAME, OPTIONS)

=over 4

Create a folder.  If the folder already exists, it will
be left unchanged.  As options, you may specify:

 Option     Defined in  Default
 folderdir              undef  

. folderdir DIRECTORY

=over 4

When the foldername is preceded by a C<=>, the C<folderdir> directory
will be searched for the named folder.

=back

=back

Mail::Box-E<gt>B<new>(OPTIONS)

=over 4

Open a new folder. A list of labeled OPTIONS
for the mailbox can be supplied. Some options pertain to Mail::Box, and
others are added by sub-classes. The list below describes all the options
provided by any Mail::Box.

To control delay-loading of messages, as well the headers as the bodies,
a set of C<*_type> options are available. C<extract> determines whether
we want delay-loading.

 Option             Defined in       Default                                                         
 access                              C<'r'>                                                          
 body_delayed_type                   L<Mail::Message::Body::Delayed|Mail::Message::Body::Delayed>    
 body_type                           <folder specific>                                               
 coerce_options                      C<[]>                                                           
 create                              <false>                                                         
 extract                             C<10240>                                                        
 field_type                          undef                                                           
 fix_headers                         <false>                                                         
 folder                              C<$ENV{MAIL}>                                                   
 folderdir                           undef                                                           
 head_delayed_type                   L<Mail::Message::Head::Delayed|Mail::Message::Head::Delayed>    
 head_type                           L<Mail::Message::Head::Complete|Mail::Message::Head::Complete>  
 keep_dups                           <false>                                                         
 lock_file                           undef                                                           
 lock_timeout                        1 hour                                                          
 lock_type                           L<Mail::Box::Locker::DotLock|Mail::Box::Locker::DotLock>        
 lock_wait                           10 seconds                                                      
 locker                              undef                                                           
 log                L<Mail::Reporter>  C<'WARNINGS'>                                                   
 manager                             undef                                                           
 message_type                        L<Mail::Box::Message|Mail::Box::Message>                        
 multipart_type                      L<Mail::Message::Body::Multipart|Mail::Message::Body::Multipart>
 remove_when_empty                   <true>                                                          
 save_on_exit                        <true>                                                          
 trace              L<Mail::Reporter>  C<'WARNINGS'>                                                   
 trusted                             <depends on folder location>                                    

. access MODE

=over 4

Access-rights to the folder. MODE can be read-only (C<"r">), append (C<"a">),
and read-write (C<"rw">).  Folders are opened for read-only (C<"r">)
(which means write-protected) by default!

These MODEs have no relation to the modes actually used to open the
folder files within this module.  For instance, if you specify C<"rw">, and
open the folder, only read permission on the folder-file is required.

Be warned: writing a MBOX folder may create a new file to replace the
old folder.  The permissions and owner of the file get changed by this.

=back

. body_delayed_type CLASS

=over 4

The bodies which are delayed: which will be read from file when it
is needed, but not before.

=back

. body_type CLASS|CODE

=over 4

When messages are read from a folder-file, the headers will be stored in
a C<head_type> object.  For the body, however, there is a range of
choices about type, which are all described in L<Mail::Message::Body|Mail::Message::Body>.

Specify a CODE-reference which produces the body-type to be created, or
a CLASS of the body which is used when the body is not a multipart or
nested.  In case of a code reference, the header structure is passed as
first argument to the routine.

Do I<not> return a delayed body-type (like C<::Delayed>), because that is
determined by the C<extract> option while the folder is opened.  Even
delayed message will require some real body type when they get parsed
eventually.  Multiparts and nested messages are also outside your control.

For instance:

 $mgr->open('InBox', body_type => \&which_body);

 sub which_body($) {
     my $head = shift;
     my $size = $head->guessBodySize || 0;
     my $type = $size > 100000 ? 'File' : 'Lines';
     "Mail::Message::Body::$type";
 }

The default depends on the mail-folder type, although the general default
is L<Mail::Message::Body::Lines|Mail::Message::Body::Lines>.  Please check the applicable
manual pages.

=back

. coerce_options ARRAY

=over 4

Keep configuration information for messages which are coerced into the
specified folder type, starting with a different folder type (or even
no folder at all).
Messages which are coerced are always fully read, so this kind of information
does not need to be kept here.

=back

. create BOOLEAN

=over 4

Automatically create the folder when it does not exist yet.  This will only
work when access is granted for writing or appending to the folder.

Be careful: you may create a different folder type than you expect unless you
explicitly specify L<Mail::Box::Manager::open(type)|"Manage folders">.

=back

. extract INTEGER | CODE | METHOD | 'LAZY'|'ALWAYS'

=over 4

Defines when to parse (process) the content of the message.
When the header of a message is read, you may want to postpone the
reading of the body: header information is more often needed than
the body data, so why parse it always together?  The cost of delaying
is not too high, and with some luck you may never need parsing the body.

If you supply an INTEGER to this option, bodies of those messages with a
total size less than that number will be extracted from the folder only
when necessary.  Messages where the size (in the C<Content-Length> field)
is not included in the header, like often the case for multiparts and nested
messages, will not be extracted by default.

If you supply a CODE reference, that subroutine is called every time
that the extraction mechanism wants to determine whether to parse the
body or not. The subroutine is called with the following arguments:

 CODE->(FOLDER, HEAD)

where FOLDER is a reference to the folder we are reading.  HEAD refers to the
L<Mail::Message::Head::Complete|Mail::Message::Head::Complete> head of the message at hand.  The routine must
return a C<true> value (extract now) or a C<false> value (be lazy, do not
parse yet).  Think about using the L<Mail::Message::Head::guessBodySize()|"About the body"> and
L<Mail::Message::guessTimestamp()|"The header"> on the header to determine your choice.

The third possibility is to specify the NAME of a method.  In that case,
for each message is called:

 FOLDER->NAME(HEAD)

Where each component has the same meaning as described above.

The fourth way to use this option involves constants: with C<LAZY>
all messages will be delayed. With C<ALWAYS> you enforce unconditional
parsing, no delaying will take place.  The latter is usuful when you are
sure you always need all the messages in the folder.

 $folder->new(extract => 'LAZY');  # Very lazy
 $folder->new(extract => 10000);   # Less than 10kB

 # same, but implemented yourself
 $folder->new(extract => &large);
 sub large($) {
    my ($f, $head) = @_;
    my $size = $head->guessBodySize;
    defined $size ? $size < 10000 : 1
 };

 # method call by name, useful for Mail::Box
 # extensions. The example selects all messages
 # sent by you to be loaded without delay.
 # Other messages will be delayed.
 $folder->new(extract => 'sent_by_me');
 sub Mail::Box::send_by_me($) {
     my ($self, $header) = @_;
     $header->get('from') =~ m/\bmy\@example.com\b/i;
 }

=back

. field_type CLASS

=over 4

The type of the fields to be used in a header. Must extend
L<Mail::Message::Field|Mail::Message::Field>.

=back

. fix_headers BOOLEAN

=over 4

Broken MIME headers usually stop the parser: all lines not parsed are
added to the body of the message.  With this flag set, the erroneous line
is added to the previous header field and parsing is continued.
See L<Mail::Box::Parser::Perl::new(fix_header_errors)|"METHODS">.

=back

. folder FOLDERNAME

=over 4

Which folder to open (for reading or writing). When used for reading (the
C<access> option set to C<"r"> or C<"a">) the mailbox should already exist
and must be readable. The file or directory of the mailbox need not exist if it
is opened for reading and writing (C<"rw">).  Write-permission is checked when
opening an existing mailbox.

The folder name can be preceded by a C<"=">, to indicate that it is named
relative to the directory specified in new(folderdir).  Otherwise, it is
taken as relative or absolute path.

=back

. folderdir DIRECTORY

=over 4

Where are folders to be found by default?  A folder-name may be preceded by
a equals-sign (C<=>, a C<mutt> convension) to explicitly state that the folder
is located below the default directory.  For example: in case
C<folderdir =E<gt> '/tmp'> and C<folder =E<gt> '=abc'>, the name of the
folder-file is C<'/tmp/abc'>.  Each folder type has already some default set.

=back

. head_delayed_type CLASS

=over 4

The headers which are delayed: which will be read from file when it
is needed, but not before.

=back

. head_type CLASS

=over 4

The type of header which contains all header information.  Must extend
L<Mail::Message::Head::Complete|Mail::Message::Head::Complete>.

=back

. keep_dups BOOLEAN

=over 4

Indicates whether or not duplicate messages within the folder should          
be retained.  A message is considered to be a duplicate if its message-id      
is the same as a previously parsed message within the same folder. If this         
option is false (the default) such messages are automatically deleted,
because it is considered useless to store the same message twice.

=back

. lock_file FILENAME

=over 4

The name of the file which is used to lock.  This must be specified when
locking is to be used.

=back

. lock_timeout SECONDS

=over 4

When the lock file is older than the specified number of SECONDS, it is
considered a mistake.  The original lock is released, and accepted for
this folder.

=back

. lock_type CLASS|STRING

=over 4

The type of the locker object.  This may be the full name of a CLASS
which extends Mail::Box::Locker, or one of the known locker types
C<DotLock>, C<File>, C<Multi>, C<NFS>, C<POSIX>, or C<NONE>.

=back

. lock_wait SECONDS

=over 4

SECONDS to wait before failing on opening this folder.

=back

. locker OBJECT

=over 4

An OBJECT which extends L<Mail::Box::Locker|Mail::Box::Locker>, and will handle folder locking
replacing the default lock behavior.

=back

. log LEVEL

. manager MANAGER

=over 4

A reference to the object which manages this folder -- typically an
L<Mail::Box::Manager|Mail::Box::Manager> instance.

=back

. message_type CLASS

=over 4

What kind of message objects are stored in this type of folder.  The
default is L<Mail::Box::Message|Mail::Box::Message> (which is a sub-class of L<Mail::Message|Mail::Message>).
The class you offer must be an extension of L<Mail::Box::Message|Mail::Box::Message>.

=back

. multipart_type CLASS

=over 4

The default type of objects which are to be created for multipart message
bodies.

=back

. remove_when_empty BOOLEAN

=over 4

Determines whether to remove the folder file or directory
automatically when the write would result in a folder without
messages nor sub-folders.

=back

. save_on_exit BOOLEAN

=over 4

Sets the policy for saving the folder when it is closed.
A folder can be closed manually (see L<close()|"The folder">) or in a number of
implicit ways, including on the moment the program is terminated.

=back

. trace LEVEL

. trusted BOOLEAN

=over 4

Flags whether to trust the data in the folder or not.  Folders which
reside in your C<folderdir> will be trusted by default (even when the
names if not specified staring with C<=>).  Folders which are outside
the folderdir or read from STDIN (L<Mail::Message::Construct::read()|"Constructing a message">) are
not trused by default, and require some extra checking.

If you do not check encodings of received messages, you may print
binary data to the screen, which is a security risk.

=back

=back

=head2 The folder


$obj-E<gt>B<addMessage>(MESSAGE)

=over 4

=back

$obj-E<gt>B<addMessages>(MESSAGE [, MESSAGE, ...])

=over 4

Add a message to the folder.  A message is usually a
L<Mail::Box::Message|Mail::Box::Message> object or a sub-class thereof.  The message
shall not be in an other folder, when you use this method.
In case it is, use L<Mail::Box::Manager::moveMessage()|"Move messages to folders"> or
L<Mail::Box::Manager::copyMessage()|"Move messages to folders"> via the manager.

Messages with id's which already exist in this folder are not added.

I<Example:> 

 $folder->addMessage($msg);
 $folder->addMessages($msg1, $msg2, ...);

=back

Mail::Box-E<gt>B<appendMessages>(OPTIONS)

=over 4

Append one or more messages to an unopened folder.
Usually, this method is called by the L<Mail::Box::Manager::appendMessage()|"Move messages to folders">,
in which case the correctness of the folder type is checked.

This method takes a list of labeled parameters, which may contain
any option which can be used when a folder is opened, most importantly
L<new(folderdir)|"Constructors">.

 Option    Defined in       Default   
 folder                     <required>
 message                    undef     
 messages                   undef     

. folder FOLDERNAME

=over 4

The name of the folder to which the messages are to be appended.  The folder
implementation will avoid opening the folder when possible, because this is
resource consuming.

=back

. message MESSAGE

. messages ARRAY-OF-MESSAGES

=over 4

One reference to a MESSAGE or a reference to an ARRAY of MESSAGEs, which may
be of any type.  The messages will be first coerced into the correct
message type to fit in the folder, and then will be added to it.

=back

I<Example:> 

 my $message = Mail::Message->new(...);
 Mail::Box::Mbox->appendMessages
  ( folder    => '=xyz'
  , message   => $message
  , folderdir => $ENV{FOLDERS}
  );

better:

 my Mail::Box::Manager $mgr;
 $mgr->appendMessages($message, folder => '=xyz');

=back

$obj-E<gt>B<close>(OPTIONS)

=over 4

Close the folder, which usually implies writing the changes.  This will
return C<false> when writing is required but fails.  Please do check this
result.

WARNING: When moving messages from one folder to another, be sure to write the
destination folder before writing and closing the source folder.  Otherwise
you may lose data if the system crashes or if there are software problems.

 Option        Defined in       Default    
 force                          <false>    
 save_deleted                   C<false>   
 write                          C<MODIFIED>

. force BOOLEAN

=over 4

Override the L<new(access)|"Constructors"> setting which was specified when the folder
was opened. This option only has an effect if its value is TRUE. NOTE:
Writing to the folder may not be permitted by the operating system,
in which case even C<force> will not help.

=back

. save_deleted BOOLEAN

=over 4

Do also write messages which where flagged to be deleted to their folder.  The
flag for deletion is conserved (when possible), which means that a re-open of
the folder may remove the messages for real.  See L<write(save_deleted)|"Internals">.

=back

. write 'ALWAYS'|'NEVER'|'MODIFIED'

=over 4

Specifies whether the folder should be written.  As could be expected,
C<ALWAYS> means always (even if there are no changes), C<NEVER> means that
changes to the folder will be lost, and C<MODIFIED>
only saves the folder if there are any changes.

=back

I<Example:> 

 my $f = $mgr->open('spam', access => 'rw')
     or die "Cannot open spam: $!\n";

 $f->message(0)->delete
     if $f->messages;

 $f->close
     or die "Couldn't write $f: $!\n";

=back

$obj-E<gt>B<copyTo>(FOLDER, OPTIONS)

=over 4

Copy the folder's messages to a new folder.  The new folder may be of
a different type.

 Option         Defined in       Default                
 delete_copied                   <false>                
 select                          'ACTIVE'               
 subfolders                      <folder type dependent>

. delete_copied BOOLEAN

=over 4

Flag the messages from the source folder to be deleted, just after it
was copied.  The deletion will only take effect when the originating
folder is closed.

=back

. select 'ACTIVE'|'DELETED'|'ALL'|LABEL|!LABEL|FILTER

=over 4

Which messages are to be copied. See the description of L<messages()|"The messages">
about how this works.

=back

. subfolders BOOLEAN|'FLATTEN'|'RECURSE'

=over 4

How to handle sub-folders.  When false (C<0> or C<undef>), sub-folders
are simply ignored.  With C<FLATTEN>, messages from sub-folders are
included in the main copy.  C<RECURSE> recursively copies the
sub-folders as well.  By default, when the destination folder
supports sub-folders C<RECURSE> is used, otherwise C<FLATTEN>.  A value
of true will select the default.

=back

I<Example:> 

 my $mgr  = Mail::Box::Manager->new;
 my $imap = $mgr->open(type => 'imap', host => ...);
 my $mh   = $mgr->open(type => 'mh', folder => '/tmp/mh',
     create => 1, access => 'w');

 $imap->copyTo($mh, delete_copied => 1);
 $mh->close; $imap->close;

=back

$obj-E<gt>B<delete>

=over 4

Remove the specified folder file or folder directory (depending on
the type of folder) from disk.  Of course, THIS IS DANGEROUS: you "may"
lose data.

WARNING: When moving messages from one folder to another, be sure to write the
destination folder before deleting the source folder.  Otherwise you may lose
data if the system crashes or if there are software problems.

I<Example:> 

 my $folder = Mail::Box::Mbox->new(folder => 'InBox');
 $folder->delete;

=back

$obj-E<gt>B<folderdir>([DIRECTORY])

=over 4

Get or set the DIRECTORY which is used to store mail-folders by default.

I<Example:> 

 print $folder->folderdir;
 $folder->folderdir("$ENV{HOME}/nsmail");

=back

Mail::Box-E<gt>B<foundIn>([FOLDERNAME], OPTIONS)

=over 4

Determine if the specified folder is of the type handled by the
folder class. This method is extended by each folder sub-type.

The FOLDERNAME specifies the name of the folder, as is specified by the
application.  You need to specified the C<folder> option when you skip
this first argument.

OPTIONS is a list of extra information for the request.  Read
the documentation for each type of folder for type specific options, but
each folder class will at least support the C<folderdir> option:

 Option     Defined in  Default
 folderdir              undef  

. folderdir DIRECTORY

=over 4

The location where the folders of this class are stored by default.  If the
user specifies a name starting with a C<=>, that indicates that the folder is
to be found in this default DIRECTORY.

=back

I<Example:> 

 Mail::Box::Mbox->foundIn('=markov',
     folderdir => "$ENV{HOME}/Mail");
 Mail::Box::MH->foundIn(folder => '=markov');

=back

$obj-E<gt>B<name>

=over 4

Returns the name of the folder.  What the name represents depends on
the actual type of mailbox used.

I<Example:> 

 print $folder->name;
 print "$folder";       # overloaded stringification

=back

$obj-E<gt>B<organization>

=over 4

Returns how the folder is organized: as one C<FILE> with many messages,
a C<DIRECTORY> with one message per file, or by a C<REMOTE> server.

=back

$obj-E<gt>B<type>

=over 4

Returns a name for the type of mail box.  This can be C<mbox>, C<mh>,
C<maildir>, or C<pop3>.

=back

$obj-E<gt>B<update>(OPTIONS)

=over 4

Read new messages from the folder, which where received after opening
it.  This is quite dangerous and shouldn't be possible: folders which
are open are locked.  However, some applications do not use locks or
the wrong kind of locks.  This method reads the changes (not always
failsafe) and incorporates them in the open folder administration.

The OPTIONS are extra values which are passed to the
L<updateMessages()|"Internals"> method which is doing the actual work here.

=back

$obj-E<gt>B<url>

=over 4

Represent the folder as a URL (Universal Resource Locator) string.  You may
pass such a URL as folder name to L<Mail::Box::Manager::open()|"Manage folders">.

I<Example:> 

 print $folder->url;
 # may result in
 #   mbox:/var/mail/markov   or
 #   pop3://user:password@pop.aol.com:101

=back

=head2 Folder flags


$obj-E<gt>B<isModified>

=over 4

Checks if the folder is modified.  A folder is modified when any of the
messages is to be deleted, any of the messages has changed, or messages
are added after the folder was read from file.

=back

$obj-E<gt>B<modified>([BOOLEAN])

=over 4

Sets whether the folder is modified or not.

=back

$obj-E<gt>B<writable>

=over 4

Checks whether the current folder is writable.

I<Example:> 

 $folder->addMessage($msg) if $folder->writable;

=back

=head2 The messages


$obj-E<gt>B<current>([NUMBER|MESSAGE|MESSAGE-ID])

=over 4

Some mail-readers keep the I<current> message, which represents the last
used message.  This method returns [after setting] the current message.
You may specify a NUMBER, to specify that that message number is to be
selected as current, or a MESSAGE/MESSAGE-ID (as long as you are sure
that the header is already loaded, otherwise they are not recognized).

I<Example:> 

 $folder->current(0);
 $folder->current($message);

=back

$obj-E<gt>B<find>(MESSAGE-ID)

=over 4

Like L<messageId()|"The messages">, this method searches for a message with the
MESSAGE-ID, returning the corresponding message object.  However, C<find>
will cause unparsed message in the folder to be parsed until the message-id
is found.  The folder will be scanned back to front.

=back

$obj-E<gt>B<message>(INDEX [,MESSAGE])

=over 4

Get or set a message with on a certain index.  Messages which are flagged
for deletion are counted.  Negative indexes start at the end of the folder.

I<Example:> 

 my $msg = $folder->message(3);
 $folder->message(3)->delete;   # status changes to `deleted'
 $folder->message(3, $msg);
 print $folder->message(-1);    # last message.

=back

$obj-E<gt>B<messageId>(MESSAGE-ID [,MESSAGE])

=over 4

With one argument, returns the message in the folder with the specified
MESSAGE-ID. If a reference to a message object is passed as the optional
second argument, the message is first stored in the folder, replacing any
existing message whose message ID is MESSAGE-ID. (The message ID of MESSAGE
need not match MESSAGE-ID.)

The MESSAGE-ID may still be in angles, which will be stripped.  In that
case blanks (which origin from header line folding) are removed too.  Other
info around the angles will be removed too.

WARNING: when the message headers are delay-parsed, the message might be in
the folder but not yet parsed into memory. In this case, use L<find()|"The messages">
instead of C<messageId()> if you really need a thorough search.

I<Example:> 

 my $msg = $folder->messageId('<complex-message.id>');
 $folder->messageId("<complex-message\n.id>", $msg);
 my $msg = $folder->messageId('complex-message.id');
 my $msg = $folder->messageId('garbage <complex-message.id> trash');

=back

$obj-E<gt>B<messageIds>

=over 4

Returns a list of I<all> message-ids in the folder, including
those of messages which are to be deleted.

For some folder-types (like MH), this method may cause all message-files
to be read.  See their respective manual pages.

I<Example:> 

 foreach my $id ($folder->messageIds) {
    $folder->messageId($id)->print;
 }

=back

$obj-E<gt>B<messages>(['ALL',RANGE,'ACTIVE','DELETED',LABEL,!LABEL,FILTER])

=over 4

Returns multiple messages from the folder.  The default is C<ALL>
which will return (as expected maybe) all the messages in the
folder.  The C<ACTIVE> flag will return the messages not flagged for
deletion.  This is the opposite of C<DELETED>, which returns all
messages from the folder which will be deleted when the folder is
closed.

You may also specify a RANGE: two numbers specifying begin and end
index in the array of messages.  Negative indexes count from the
end of the folder.  When an index is out-of-range, the returned
list will be shorter without complaints.

Everything else than the predefined names is seen as labels.  The messages
which have that label set will be returned.  When the sequence starts
with an exclamation mark (!), the search result is reversed.

For more complex searches, you can specify a FILTER, which is
simply a code reference.  The message is passed as only argument.

I<Example:> 

 foreach my $message ($folder->messages) {...}
 foreach my $message (@$folder) {...}

 # twice the same
 my @messages   = $folder->messages;
 my @messages   = $folder->messages('ALL');

 # Selection based on a range (begin, end)
 my $subset     = $folder->messages(10,-8);

 # twice the same:
 my @not_deleted= grep {not $_->isDeleted}
                     $folder->messages;
 my @not_deleted= $folder->messages('ACTIVE');

 # scalar context the number of messages
 my $nr_of_msgs = $folder->messages;

 # third message, via overloading
 $folder->[2];

 # Selection based on labels
 $mgr->moveMessages($spam, $inbox->message('spam'));
 $mgr->moveMessages($archive, $inbox->message('seen'));

=back

$obj-E<gt>B<scanForMessages>(MESSAGE, MESSAGE-IDS, TIMESPAN, WINDOW)

=over 4

You start with a MESSAGE, and are looking for a set of messages
which are related to it.  For instance, messages which appear in
the 'In-Reply-To' and 'Reference' header fields of that message.
These messages are known by their MESSAGE-IDS and you want to find
them in the folder.

When all message-ids are known, then looking-up messages is simple:
they are found in a plain hash using L<messageId()|"The messages">.  But Mail::Box
is lazy where it can, so many messages may not have been read from
file yet, and that's the prefered situation, because that saves
time and memory.

It is not smart to search for the messages from front to back in
the folder: the chances are much higher that related message
reside closely to each other.  Therefore, this method starts
scanning the folder from the specified MESSAGE, back to the front
of the folder.

The TIMESPAN can be used to terminate the search based on the time
enclosed in the message.  When the constant string C<EVER> is used as
TIMESPAN, then the search is not limited by that.  When an integer
is specified, it will be used as absolute time in time-ticks as
provided by your platform dependent C<time> function.  In other cases,
it is passed to L<timespan2seconds()|"Other methods"> to determine the threshold
as time relative to the message's time.

The WINDOW is used to limit the search in number of messages to be
scanned as integer or constant string C<ALL>.

Returned are the message-ids which were not found during the scan.
Be warned that a message-id could already be known and therefore not
found: check that first.

I<Example:> scanning through a folder for a message


 my $refs   = $msg->get('References') or return;
 my @msgids = $ref =~ m/\<([^>]+\>/g;
 my @failed = $folder->scanForMessages($msg, \@msgids, '3 days', 50);

=back

=head2 Sub-folders


$obj-E<gt>B<listSubFolders>(OPTIONS)

Mail::Box-E<gt>B<listSubFolders>(OPTIONS)

=over 4

List the names of all sub-folders to this folder, not recursively
decending.  Use these names as argument to L<openSubFolder()|"Sub-folders">, to get
access to that folder.

For MBOX folders, sub-folders are simulated.

 Option      Defined in       Default      
 check                        <false>      
 folder                       <required>   
 folderdir                    <from folder>
 skip_empty                   <false>      

. check BOOLEAN

=over 4

Should all returned foldernames be checked to be sure that they are of
the right type?  Each sub-folder may need to be opened to check this,
with a folder type dependent penalty (in some cases very expensive).

=back

. folder FOLDERNAME

=over 4

The folder whose sub-folders should be listed.

=back

. folderdir DIRECTORY

. skip_empty BOOL

=over 4

Shall empty folders (folders which currently do not contain any messages)
be included?  Empty folders are not useful to open, but may be useful
to save to.

=back

I<Example:> 

 my $folder = $mgr->open('=in/new');
 my @subs = $folder->listSubFolders;

 my @subs = Mail::Box::Mbox->listSubFolders(folder => '=in/new');
 my @subs = Mail::Box::Mbox->listSubFolders; # toplevel folders.

=back

$obj-E<gt>B<nameOfSubFolder>(NAME)

=over 4

Returns the constructed name of the folder with NAME, which is a sub-folder
of this current one.

=back

$obj-E<gt>B<openRelatedFolder>(OPTIONS)

=over 4

Open a folder (usually a sub-folder) with the same options as this one.  If
there is a folder manager in use, it will be informed about this new folder.
OPTIONS overrule the options which where used for the folder this method
is called upon.

=back

$obj-E<gt>B<openSubFolder>(NAME, OPTIONS)

=over 4

Open (or create, if it does not exist yet) a new subfolder in an
existing folder.

I<Example:> 

 my $folder = Mail::Box::Mbox->new(folder => '=Inbox');
 my $sub    = $folder->openSubFolder('read');

=back

=head2 Internals


$obj-E<gt>B<coerce>(MESSAGE)

=over 4

Coerce the MESSAGE to be of the correct type to be placed in the
folder.  You can specify Mail::Internet and MIME::Entity objects
here: they will be translated into Mail::Message messages first.

=back

$obj-E<gt>B<determineBodyType>(MESSAGE, HEAD)

=over 4

Determine which kind of body will be created for this message when
reading the folder initially.

=back

$obj-E<gt>B<lineSeparator>([STRING|'CR'|'LF'|'CRLF'])

=over 4

Returns the character or characters used to separate lines in the folder
file, optionally after setting it to STRING, or one of the constants.
The first line of the folder sets the default.

UNIX uses a LF character, Mac a CR, and Windows both a CR and a LF.  Each
separator will be represented by a "\n" within your program.  However,
when processing platform foreign folders, complications appear.  Think about
the C<Size> field in the header.

When the separator is changed, the whole folder me be rewritten.  Although,
that may not be required.

=back

$obj-E<gt>B<locker>

=over 4

Returns the locking object.

=back

$obj-E<gt>B<read>(OPTIONS)

=over 4

Read messages from the folder into memory.  The OPTIONS are folder
specific.  Do not call C<read()> yourself: it will be called for you
when you open the folder via the manager or instantiate a folder
object directly.

NOTE: if you are copying messages from one folder to another, use
L<addMessages()|"The folder"> instead of C<read()>.

I<Example:> 

 my $mgr = Mail::Box::Manager->new;
 my $folder = $mgr->open('InBox');             # implies read
 my $folder = Mail::Box::Mbox->new(folder => 'Inbox'); # same

=back

$obj-E<gt>B<readMessages>(OPTIONS)

=over 4

Called by L<read()|"Internals"> to actually read the messages from one specific
folder type.  The L<read()|"Internals"> organizes the general activities.

The OPTIONS are C<trusted>, C<head_type>, C<field_type>,
C<message_type>, C<body_delayed_type>, and C<head_delayed_type> as
defined by the folder at hand.  The defaults are the constructor
defaults (see L<new()|"Constructors">).

=back

$obj-E<gt>B<storeMessage>(MESSAGE)

=over 4

Store the message in the folder without the checks as performed by
L<addMessage()|"The folder">.

=back

$obj-E<gt>B<toBeThreaded>(MESSAGES)

=over 4

The specified message is ready to be removed from a thread.
This will be passed on to the mail-manager, which keeps an overview on
which thread-detection objects are floating around.

=back

$obj-E<gt>B<toBeUnthreaded>(MESSAGES)

=over 4

The specified message is ready to be included in a thread.
This will be passed on to the mail-manager, which keeps an overview on
which thread-detection objects are floating around.

=back

$obj-E<gt>B<updateMessages>(OPTIONS)

=over 4

Called by L<update()|"The folder"> to read messages which arrived in the folder
after it was opened.  Sometimes, external applications dump messages
in a folder without locking (or using a different lock than your
application does).

Although this is quite a dangerous, it only fails when a folder is
updated (reordered or message removed) at exactly the same time as
new messages arrive.  These collisions are sparse.

The options are the same as for L<readMessages()|"Internals">.

=back

$obj-E<gt>B<write>(OPTIONS)

=over 4

Write the data to disk.  The folder (a C<true> value) is returned if
successful.  Deleted messages are transformed into destroyed messages:
their memory is freed.

WARNING: When moving messages from one folder to another, be sure to
write (or L<close()|"The folder">) the destination folder before writing (or closing)
the source folder: otherwise you may lose data if the system crashes or
if there are software problems.

To write a folder to a different file, you must first create a new folder,
then move all the messages, and then write or L<close()|"The folder"> that new folder.

 Option        Defined in       Default
 force                          <false>
 save_deleted                   <false>

. force BOOLEAN

=over 4

Override write-protection with L<new(access)|"Constructors"> while opening the folder
(whenever possible, it may still be blocked by the operating system).

=back

. save_deleted BOOLEAN

=over 4

Do also write messages which where flagged to be deleted to their folder.  The
flag for deletion is conserved (when possible), which means that a re-open of
the folder may remove the messages for real.  See L<close(save_deleted)|"The folder">.

=back

=back

$obj-E<gt>B<writeMessages>(OPTIONS)

=over 4

Called by L<write()|"Internals"> to actually write the messages from one specific
folder type.  The C<write> organizes the general activities.  All options
to L<write()|"Internals"> are passed to C<writeMessages> as well.  Besides, a few extra
are added by C<write> itself.

 Option    Defined in  Default   
 messages              <required>

. messages ARRAY

=over 4

The messages to be written, which is a sub-set of all messages in the
current folder.

=back

=back

=head2 Other methods


$obj-E<gt>B<timespan2seconds>(TIME)

Mail::Box-E<gt>B<timespan2seconds>(TIME)

=over 4

TIME is a string, which starts with a float, and then one of the
words 'hour', 'hours', 'day', 'days', 'week', or 'weeks'.  For instance:
'1 hour' or '4 weeks'.

=back

=head2 Error handling


$obj-E<gt>B<AUTOLOAD>

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<defaultTrace>([LEVEL, [LEVEL])

Mail::Box-E<gt>B<defaultTrace>([LEVEL, [LEVEL])

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<errors>

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<log>([LEVEL [,STRINGS]])

Mail::Box-E<gt>B<log>([LEVEL [,STRINGS]])

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<logPriority>(LEVEL)

Mail::Box-E<gt>B<logPriority>(LEVEL)

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<logSettings>

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<notImplemented>

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<report>([LEVEL])

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<reportAll>([LEVEL])

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<trace>([LEVEL])

=over 4

See L<Mail::Reporter/"Error handling">

=back

$obj-E<gt>B<warnings>

=over 4

See L<Mail::Reporter/"Error handling">

=back

=head2 Cleanup


$obj-E<gt>B<DESTROY>

=over 4

This method is called by Perl when an folder-object is no longer accessible
by the rest of the program.

=back

$obj-E<gt>B<inGlobalDestruction>

=over 4

See L<Mail::Reporter/"Cleanup">

=back



=head1 DIAGNOSTICS

I<Warning:> Changes not written to read-only folder $self.

You have opened the folder read-only --which is the default set
by L<new(access)|"Constructors">--, made modifications, and now want to close it.
Set L<close(force)|"The folder"> if you want to overrule the access mode, or close
the folder with L<close(write)|"The folder"> set to C<NEVER>.

I<Error:> Copying failed for one message.

For some reason, for instance disc full, removed by external process, or
read-protection, it is impossible to copy one of the messages.  Copying will
proceed for the other messages.

I<Error:> Destination folder $name is not writable.

The folder where the messages are copied to is not opened with write
access (see L<new(access)|"Constructors">).  This has no relation with write permission
to the folder which is controled by your operating system.

I<Warning:> Different messages with id $msgid.

The message id is discovered more than once within the same folder, but the
content of the message seems to be different.  This should not be possible:
each message must be unique.

I<Error:> Folder $name is opened read-only

You can not write to this folder unless you have opened the folder to
write or append with L<new(access)|"Constructors">, or the C<force> option is set true.

I<Error:> Folder $name not deleted: not writable.

The folder must be opened with write access via L<new(access)|"Constructors">, otherwise
removing it will be refused.  So, you may have write-access according to
the operating system, but that will not automatically mean that this
C<delete> method permits you to.  The reverse remark is valid as well.

I<Error:> Invalid timespan '$timespan' specified.

The string does not follow the strict rules of the time span syntax which
is permitted as parameter.

I<Warning:> Message-id '$msgid' does not contain a domain.

According to the RFCs, message-ids need to contain a unique random part,
then an C<@>, and then a domain name.  This is made to avoid the creation
of two messages with the same id.  The warning emerges when the C<@> is
missing from the string.

I<Error:> No folder name specified.

You did not specify the name of a folder to be opened.  Use the
L<new(folder)|"Constructors"> option or set the C<MAIL> environment variable.

I<Error:> Package $package does not implement $method.

Fatal error: the specific package (or one of its superclasses) does not
implement this method where it should. This message means that some other
related classes do implement this method however the class at hand does
not.  Probably you should investigate this and probably inform the author
of the package.

I<Error:> Unable to create subfolder $name of $folder.

The copy includes the subfolders, but for some reason it was not possible
to copy one of these.  Copying will proceed for all other sub-folders.

I<Error:> Writing folder $name failed

For some reason (you probably got more error messages about this problem)
it is impossible to write the folder, although you should because there
were changes made.






=head1 REFERENCES

See the Mail::Box website at L<http://perl.overmeer.net/mailbox/> for more details.

=head1 COPYRIGHTS

Module version 2.042.
Written by Mark Overmeer (mark@overmeer.net).  See the ChangeLog for
other contributors.

Copyright (c) 2001-2003 by the author(s). All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.


