Suspend email delivery during account archiving

GLPI #48692

root/sbin/e-smith/expire-accounts

@@ -123,6 +123,9 @@ foreach my $u (@delete){
   }
   my $archive = $user->prop('ExpireArchiveBeforeDelete') || 'yes';
   if ( $archive =~ m/^yes|enabled|1|on$/ ){
+    # Suspend email delivery, prevent tar ending with exit code 1
+    # because Maildir changed during archive
+    system('chmod', '+t', getpwnam($u)->dir)
     my $tar = $archive_path . '/' . $u . '-' . $now->ymd . '.tar.' . $archive_ext;
     my $res = system(
       'tar',