update

1 files changed, 12 insertions, 4 deletions

diff --git a/transfugdrake b/transfugdrake
index 0290140..d7dd964 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -16,7 +16,7 @@
 
 use lib q(/usr/lib/libDrakX);
 
-use common qw(:common :system :file);
+use common qw(:common :file :functional :system);
 use interactive;
 use standalone;
 #use log;
@@ -76,14 +76,22 @@ undef $wait_configuring;
  
 $::direct or $in->ask_okcancel(_("Transfug"),
 _("
-Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or quit_global($in, 0);
+Do you want to copy all the c:\\My Documents to one of your user home ?"), 1) or goto step_3;
+
+# translators need to accord My Documents..
+  link(_("$win/My Documents"), $ENV{HOME});
+
 
 #- *******************************
 #- * 3rd step: mail from win
 step_3:
 
-mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail");
+$::direct or $in->ask_okcancel(_("Transfug"),
+_("Kick windows out of your life.
+
+We will bring back your Outlook Mailboxes to a standart unix mbox"), 1) or quit_global($in, 0);
 
+mkdir "$ENV{HOME}/Mail" unless (-e "$ENV{HOME}/Mail");
 $oe5onwin98="$win/WINDOWS/Application Data/Identities/{424975E0-8577-11D4-A891-989048140B20}/Microsoft/Outlook Express";
 
 if (-e $oe5onwin98) {
@@ -96,7 +104,7 @@ if (-e $oe5onwin98) {
     }
 } else {
     while (1) {
-	$a=ask_file_path(_("Select file"),"$win/") or goto step_4;
+	$a=ask_file_path(_("Select file"),"$win/Application Data/Identities") or goto step_4;
 	`transfug_oe \"$a\" \"$ENV{HOME}/Mail/$i\"`;
     }