From ecadbe74bd559eb496bfb19360d053a3a60e2099 Mon Sep 17 00:00:00 2001 From: ueno Date: Wed, 8 Dec 2004 02:25:57 +0000 Subject: [PATCH] * riece-log.el (riece-log-display-message-function): Suppress further file-name encoding. --- lisp/ChangeLog | 5 +++++ lisp/riece-log.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c7ac2df..47c44f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-12-08 Daiki Ueno + + * riece-log.el (riece-log-display-message-function): Suppress + further file-name encoding. + 2004-12-07 Daiki Ueno * test/lunit-report.el: New file split from lunit.el. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index ffa20ce..687c964 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -83,7 +83,8 @@ If integer, flash back only this line numbers. t means all lines." (defun riece-log-display-message-function (message) (if riece-log-enabled (let ((file (riece-log-get-file (riece-message-target message))) - (coding-system-for-write riece-log-coding-system)) + (coding-system-for-write riece-log-coding-system) + 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") " " -- 1.7.10.4