>>36
ありがとうございます。元の内容を再表示すればいいんですね。
message と同じように使える関数にしてみました。

(defun my-no-echo-message (format-string &rest args)
(let ((currmsg (current-message))
(result (message (if args
(apply 'format format-string args)
format-string))))
(let ((message-log-max nil))
(message (replace-regexp-in-string "%" "%%" (or currmsg ""))))
result))