use detected items instead of test mails

1 files changed, 1 insertions, 10 deletions

diff --git a/transfugdrake b/transfugdrake
index dc2a192..1d3b681 100755
--- a/transfugdrake
+++ b/transfugdrake
@@ -12,7 +12,6 @@ my %distrib = distrib();
 my $windows_disk = get_windows_disk();
 my @linux_users = list_users();
 my @windows_users = list_windows_users($windows_disk);
-my %windows_mail = list_windows_mail();
 
 my @windows_items;
 my $linux_user;
@@ -113,7 +112,7 @@ my $wiz = wizards->new({
                   val => \$mail_migration_type,
                   list => [
                       N("Import mail (recommended)"),
-                      if_(member('thunderbird', keys %windows_mail),
+                      if_(member('Mozilla Thunderbird', @windows_items),
                           N("Share mail")),
                       N("Skip step"),
                   ],
@@ -190,14 +189,6 @@ sub list_windows_items {
                                                  "--user=$win_user")));
 }
 
-sub list_windows_mail {
-    my ($win_prefix) = @_;
-    (
-        'outlook' => [ 'a', 'b' ],
-        'thunderbird' => [ 'c', 'd', 'e' ],
-    );
-}
-
 sub import_target {
     my ($win_prefix, $win_user, $linux_user, $target) = @_;
     my $lc_target = lc($_);