>>38
argsをあれこれしなくても、単にmessageを直接applyして良いと思う

(defun my-no-echo-message (format-string &rest args)
(let* ((currmsg (current-message))
(result (apply #'message format-string args))
(message-log-max nil))
(message currmsg)
result))