X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=evade-mail-admin;h=dc5e37ef2db5385531c390287242c736c56cf7cc;hb=a0ebd46160d051781f555d63a7707950df31d8cd;hp=5b997bd1bf15fcf280ffd39fbe31d2a132824fe3;hpb=3b8b28fc6a09bf548bd04555474644a42640c973;p=d.git

diff --git a/evade-mail-admin b/evade-mail-admin
index 5b997bd..dc5e37e 100755
--- a/evade-mail-admin
+++ b/evade-mail-admin
@@ -320,6 +320,7 @@ sub action_create {
 
 sub action_choose {
     genopts;
+    $|=1;
     my $template = rhsargs({'redirect'=>$user, 'comment'=>''});
     $template->{'user'} = $user;
     prepare_create();
@@ -350,6 +351,7 @@ sub action_choose {
 	    1;
 	}) {
 	    my $newrow = { %$template, 'localpart' => $s };
+	    insertrow($newrow);
 	    $dbh->commit();
 	    prow($newrow);
 	} else {