message: use called-interactively-p