* tools/Makefile.am
* tools/README
* tools/kmail-mailbox2claws-mail.pl **ADDED**
* tools/maildir2claws-mail.pl **REMOVED**
renamed the script, fixed a couple bugs
+2007-02-25 [paul] 2.7.2cvs72
+
+ * tools/Makefile.am
+ * tools/README
+ * tools/kmail-mailbox2claws-mail.pl **ADDED**
+ * tools/maildir2claws-mail.pl **REMOVED**
+ renamed the script, fixed a couple bugs
+
2007-02-23 [colin] 2.7.2cvs71
* src/addressbook.c
2007-02-23 [colin] 2.7.2cvs71
* src/addressbook.c
( cvs diff -u -r 1.207.2.149 -r 1.207.2.150 src/folderview.c; cvs diff -u -r 1.1.2.43 -r 1.1.2.44 src/imap_gtk.c; ) > 2.7.2cvs69.patchset
( cvs diff -u -r 1.115.2.138 -r 1.115.2.139 src/main.c; cvs diff -u -r 1.7.2.9 -r 1.7.2.10 src/main.h; cvs diff -u -r 1.14.2.51 -r 1.14.2.52 src/plugins/trayicon/trayicon.c; ) > 2.7.2cvs70.patchset
( cvs diff -u -r 1.60.2.82 -r 1.60.2.83 src/addressbook.c; ) > 2.7.2cvs71.patchset
( cvs diff -u -r 1.207.2.149 -r 1.207.2.150 src/folderview.c; cvs diff -u -r 1.1.2.43 -r 1.1.2.44 src/imap_gtk.c; ) > 2.7.2cvs69.patchset
( cvs diff -u -r 1.115.2.138 -r 1.115.2.139 src/main.c; cvs diff -u -r 1.7.2.9 -r 1.7.2.10 src/main.h; cvs diff -u -r 1.14.2.51 -r 1.14.2.52 src/plugins/trayicon/trayicon.c; ) > 2.7.2cvs70.patchset
( cvs diff -u -r 1.60.2.82 -r 1.60.2.83 src/addressbook.c; ) > 2.7.2cvs71.patchset
+( cvs diff -u -r 1.25.2.16 -r 1.25.2.17 tools/Makefile.am; cvs diff -u -r 1.30.2.16 -r 1.30.2.17 tools/README; diff -u /dev/null tools/kmail-mailbox2claws-mail.pl; cvs diff -u -r -1.1.2.3 -r -1.1.2.4 tools/maildir2claws-mail.pl; ) > 2.7.2cvs72.patchset
MICRO_VERSION=2
INTERFACE_AGE=0
BINARY_AGE=0
MICRO_VERSION=2
INTERFACE_AGE=0
BINARY_AGE=0
EXTRA_RELEASE=
EXTRA_GTK2_VERSION=
EXTRA_RELEASE=
EXTRA_GTK2_VERSION=
google_search.pl \
kmail2claws-mail.pl \
kmail2claws-mail_v2.pl \
google_search.pl \
kmail2claws-mail.pl \
kmail2claws-mail_v2.pl \
- maildir2claws-mail.pl \
+ kmail-mailbox2claws-mail.pl \
multiwebsearch.pl \
nautilus2claws-mail.sh \
outlook2claws-mail.pl \
multiwebsearch.pl \
nautilus2claws-mail.sh \
outlook2claws-mail.pl \
Mailbox conversion:
calypso_convert.pl Import mbox files with attachments from Calypso
convert_mbox.pl Import mbox files
Mailbox conversion:
calypso_convert.pl Import mbox files with attachments from Calypso
convert_mbox.pl Import mbox files
- maildir2claws-mail.pl Convert a maildir mailbox to MH format
+ kmail-mailbox2claws-mail.pl Convert a kmail mailbox to a Claws Mail mailbox
tbird2claws.py Integrate a Thunderbird folder tree into Claws
Other tools:
tbird2claws.py Integrate a Thunderbird folder tree into Claws
Other tools:
Contact: Fred Marton <Fred.Marton@uni-bayreuth.de>
Contact: Fred Marton <Fred.Marton@uni-bayreuth.de>
+* kmail-mailbox2claws-mail.pl
- This perl script converts a mailbox in maildir format into
- Claws Mail' MH format.
+ This perl script converts a kmail mailbox into Claws Mail' mailbox.
- perl maildir2claws-mail.pl --kmaildir=mail_folder_name
+ kmail-mailbox2claws-mail.pl --kmaildir=/full/path/to/kmail/mailbox
Start Claws Mail and right-click the toplevel mailbox, i.e
"Mailbox (MH)", and select 'Rebuild folder tree'.
You may also need to run '/File/Folder/Check for new messages
in all folders'
Start Claws Mail and right-click the toplevel mailbox, i.e
"Mailbox (MH)", and select 'Rebuild folder tree'.
You may also need to run '/File/Folder/Check for new messages
in all folders'
- Your maildir directory will be backed-up.
Additional options:
--debug debug mode
Additional options:
--debug debug mode
# * This file is free software; you can redistribute it and/or modify it
# * under the terms of the GNU General Public License as published by
# * This file is free software; you can redistribute it and/or modify it
# * under the terms of the GNU General Public License as published by
# * along with this program; if not, write to the Free Software
# * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# *
# * along with this program; if not, write to the Free Software
# * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
# *
-# * Copyright 2003 Paul Mangan <paul@claws-mail.org>
+# * Copyright 2003-2007 Paul Mangan <paul@claws-mail.org>
+# * 2007-02-25: several fixes for kmail 1.9.6
+# --kmaildir now expects the full path
+# renamed from maildir2claws-mail.pl to kmail-mailbox2claws-mail.pl
# * 2003-10-01: add --debug and --dry-run options
# * 2003-09-30: updated/improved by Matthias Förste <itsjustme@users.sourceforge.net>
# * 2003-05-27: version one
# * 2003-10-01: add --debug and --dry-run options
# * 2003-09-30: updated/improved by Matthias Förste <itsjustme@users.sourceforge.net>
# * 2003-05-27: version one
-## script name : maildir2sylpheed.pl
+## script name : kmail-mailbox2claws-mail.pl
## script purpose : convert a Kmail mailbox into a Claws Mail mailbox
## script purpose : convert a Kmail mailbox into a Claws Mail mailbox
-## USAGE: maildir2claws-mail.pl --kmaildir=Mail
+## USAGE: kmail-mailbox2claws-mail.pl --kmaildir=/full/path/to/kmail/mailbox
-## tested with Kmail version 1.5.2
+## tested with Kmail version 1.9.6
my $DEBUG = '';
my $claws_tmpdir = "$ENV{HOME}/claws_tmp";
my $DEBUG = '';
my $claws_tmpdir = "$ENV{HOME}/claws_tmp";
-my $kmail_olddir = "$ENV{HOME}/kmail_junk";
GetOptions("kmaildir=s" => \$kmaildir,
"help" => \$iNeedHelp,
GetOptions("kmaildir=s" => \$kmaildir,
"help" => \$iNeedHelp,
print "No directory name given\n";
}
print "Use the following format:\n";
print "No directory name given\n";
}
print "Use the following format:\n";
- print "\tmaildir2claws-mail.pl --kmaildir=mail_folder_name\n\n";
- print "For example: 'Mail'\n";
+ print "\tkmail-mailbox2claws-mail.pl --kmaildir=full-path-to-kmail-dir\n\n";
-$kmaildir = "$ENV{PWD}/$kmaildir" unless '/' eq substr($kmaildir,0,1);
my $count = 1;
my $MAIL_dir = "$kmaildir";
my $count = 1;
my $MAIL_dir = "$kmaildir";
unless ($PRETEND) {
mkdir("$claws_tmpdir", 0755);
unless ($PRETEND) {
mkdir("$claws_tmpdir", 0755);
- system("mv $kmaildir $kmail_olddir");
system("mv $claws_tmpdir $ENV{HOME}/Mail");
print "\n\nSucessfully converted mailbox \"$MAIL_dir\"\n";
system("mv $claws_tmpdir $ENV{HOME}/Mail");
print "\n\nSucessfully converted mailbox \"$MAIL_dir\"\n";
print "select \"Rebuild folder tree\"\n";
print "You may also need to run \"/File/Folder/Check for ";
print "new messages in all folders\"\n\n";
print "select \"Rebuild folder tree\"\n";
print "You may also need to run \"/File/Folder/Check for ";
print "new messages in all folders\"\n\n";
- print "Your kmail directories have been backed-up to\n";
- print "$kmail_olddir\n\n";
$direc !~ m/^inbox$/) {
my $tmpdir = $direc;
$tmpdir =~ s/^$MAIL_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/^\///;
$tmpdir =~ s/\/cur$//;
$tmpdir =~ s/\/new$//;
$tmpdir =~ s/^\///;
my $nfile;
my $tmpfile = $file;
my $nfile;
my $tmpfile = $file;
+ $tmpfile =~ s|^$kmaildir||;
+
if ($tmpfile =~ m/\/cur\// ||
$tmpfile =~ m/\/new\//) {
if ($tmpfile =~ m/\/cur\// ||
$tmpfile =~ m/\/new\//) {
push(@spl_str, "$count");
foreach my $spl_str (@spl_str) {
push(@spl_str, "$count");
foreach my $spl_str (@spl_str) {
$spl_str =~ s/\.directory$//;
$spl_str =~ s/\.directory$//;
$spl_str =~ s/^sent-mail$/sent/;
}
$spl_str =~ s/^sent-mail$/sent/;
}
$nfile = join("/", @spl_str);
$nfile = join("/", @spl_str);
- $nfile =~ s|$kmaildir|$claws_tmpdir/|;
+ $nfile = $claws_tmpdir.$nfile;
}
if (-e "$file" && $nfile ne "") {
}
if (-e "$file" && $nfile ne "") {