>>35
こうかな

(let ((currmsg (current-message)))
(message "aaa")
(let ((message-log-max nil))
(message currmsg)))