submit_filter(In, Out) :-
    check_draft(In, S1),
    check_do_not_submit(S1, Out).

check_draft(S1, S2) :-
    gerrit:commit_message_matches('DRAFT'), !,
    S2 = [label('Found-DRAFT-In-Commit-Message', need(_)) | S1].

check_draft(S1, S2) :-
    S2 = S1.

check_do_not_submit(S1, S2) :-
    gerrit:commit_message_matches('DO NOT SUBMIT'), !,
    S2 = [label('Found-DO-NOT-SUBMIT-In-Commit-Message', need(_)) | S1].

check_do_not_submit(S1, S2) :-
    S2 = S1.