diff --git a/installer/data/mysql/atomicupdate/bug_16217.perl b/installer/data/mysql/atomicupdate/bug_16217.perl
new file mode 100644
index 0000000000..a58e799e76
--- /dev/null
+++ b/installer/data/mysql/atomicupdate/bug_16217.perl
@@ -0,0 +1,14 @@
+my $dbh = C4::Context->dbh;
+my $letters = $dbh->selectall_arrayref(q|
+    SELECT code, name
+    FROM letter
+    WHERE message_transport_type="email"
+|, { Slice => {} });
+for my $letter ( @$letters ) {
+    $dbh->do(q|
+        UPDATE letter
+        SET name = ?
+        WHERE code = ?
+        AND message_transport_type <> "email"
+    |, undef, $letter->{name}, $letter->{code});
+}