… | |
… | |
25 | my $f = new Mail::Folder "AUTODETECT", $path, NotMUA => 1 |
25 | my $f = new Mail::Folder "AUTODETECT", $path, NotMUA => 1 |
26 | or die "$path: unable to open mailfolder"; |
26 | or die "$path: unable to open mailfolder"; |
27 | |
27 | |
28 | my $id = $f->first_message; |
28 | my $id = $f->first_message; |
29 | |
29 | |
|
|
30 | $|=1; |
|
|
31 | |
30 | do { |
32 | do { |
31 | import_mailmsg($bid, $f->get_message($id)); |
33 | import_mailmsg($bid, $f->get_message($id)); |
|
|
34 | print "."; |
32 | } while ($id = $f->next_message($id)); |
35 | } while ($id = $f->next_message($id)); |
33 | |
36 | |
34 | |
37 | |