+ let sth =
+ dbh#prepare_cached "delete from recently_visited
+ where userid = ? and hostid = ?" in
+ sth#execute [`Int userid; `Int hostid];
+
+ let sth =
+ dbh#prepare_cached "delete from pending_email_changes
+ where userid = ?" in
+ sth#execute [`Int userid];
+
+