fletでmessageをignore関数にしておく。
あるいは

(defvar no-message nil)
(defadvice message (around no-message activate)
(unless no-message
ad-do-it))
(let ((no-message t))
(foo))