>>686
多分これ。書いた人はメール欄の人なので苦情などはそちらによろしく。

(eval-after-load "riece-log"
'(defun riece-log-display-message-function (message)
(if (get 'riece-log 'riece-addon-enabled)
(let* ((coding-system-for-write
(if (featurep 'mule)
(or riece-log-coding-system
(car (get-language-info current-language-environment
'coding-system)))))
(file (riece-log-make-file-name
(if (and (not (riece-message-own-p message))
(riece-message-external-p message))
(riece-message-speaker message)
(riece-message-target message))
coding-system-for-write))
file-name-coding-system
default-file-name-coding-system)
(unless (file-directory-p (file-name-directory file))
(make-directory (file-name-directory file) t))
(write-region (concat (format-time-string "%H:%M") " "
(riece-format-message message))
nil file t 0
riece-log-lock-file)))))