diff --git a/Message/Queue.pm b/Message/Queue.pm index 7f7319c..d2dcb75 100644 --- a/Message/Queue.pm +++ b/Message/Queue.pm @@ -573,7 +573,7 @@ sub _delete_by_id { # Otherwise, nobody is marked as having seen the message, if it hasn't been sent, mark it as deleted my $nukeh = $self -> {"dbh"} -> prepare("UPDATE `".$self -> {"settings"} -> {"database"} -> {"message_queue"}."` SET deleted = ?, deleted_id = ? - WHERE $id = ? + WHERE id = ? AND deleted IS NULL"); my $result = $nukeh -> execute($deleted, $userid, $messageid); return $self -> self_error("Unable to perform message delete: ". $self -> {"dbh"} -> errstr) if(!$result);