How to stop displaying calls to message in Emacs Lisp?

(defun my-call-to-message ()
  (message "foo")
  (sleep-for 2))

(let ((inhibit-message t))
  (my-call-to-message))