Function: todo-cp
Make a diary entry appear only in the current date's diary.
(fn)