2007-01-03 [paul] 2.6.1cvs98
[claws.git] / tools / maildir2claws-mail.pl
index 8d396f51e5ec08129e7c386343ab2b3098632aa4..eecdb9d520ee481e55b93f7d3ab2c27621417c7b 100644 (file)
@@ -107,7 +107,7 @@ sub process_dir() {
            $direc !~ m/^inbox$/) {
                my $tmpdir = $direc;
                $tmpdir =~ s/^$MAIL_dir//;
-               $tmpdir =~ s/sent-mail/sent/;
+               $tmpdir =~ s/^sent-mail$/sent/;
                $tmpdir =~ s/\/cur$//;
                $tmpdir =~ s/\/new$//;
                $tmpdir =~ s/^\///;
@@ -141,7 +141,7 @@ sub process_file {
                foreach my $spl_str (@spl_str) {
                        $spl_str =~ s/^\.//;
                        $spl_str =~ s/\.directory$//;
-                       $spl_str =~ s/sent-mail/sent/;
+                       $spl_str =~ s/^sent-mail$/sent/;
                }
 
                $nfile = join("/", @spl_str);