From: ueno <ueno>
Date: Wed, 17 Dec 2003 02:35:23 +0000 (+0000)
Subject: * riece-log.el (riece-log-file-name-coding-system): New user option.
X-Git-Tag: riece-0_1_7~4
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=4a539bc5d8f2d7080944a984b6914ff78971d786;p=elisp%2Friece.git

* riece-log.el (riece-log-file-name-coding-system): New user option.
(riece-log-display-message-function): Bind file-name-coding-system.
(riece-log-flashback): Ditto.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7405df1..da41794 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,12 @@
 2003-12-17  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-log.el (riece-log-file-name-coding-system): New user option.
+	(riece-log-display-message-function): Bind file-name-coding-system.
+	(riece-log-flashback): Ditto.
+
 	* riece-log.el (riece-log-flashback): Use
 	riece-match-string-no-properties instead of match-string-no-properties.
+
 	* riece-xemacs.el (riece-match-string-no-properties): New function.
 	* riece-emacs.el (riece-match-string-no-properties): New alias.
 
diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 4398f8b..66aa3bd 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -61,6 +61,11 @@ If integer, flash back only this line numbers. t means all lines."
   :type 'symbol
   :group 'riece-log)
 
+(defcustom riece-log-file-name-coding-system file-name-coding-system
+  "*Coding system used to convert pathnames of log files."
+  :type 'symbol
+  :group 'riece-log)
+
 (defun riece-log-display-message-function (message)
   (let ((open-bracket
 	 (funcall riece-message-make-open-bracket-function message))
@@ -69,7 +74,8 @@ If integer, flash back only this line numbers. t means all lines."
 	(name
 	 (funcall riece-message-make-name-function message))
 	(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 riece-log-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") " "
@@ -101,7 +107,8 @@ If integer, flash back only this line numbers. t means all lines."
 
 (defun riece-log-flashback (identity)
   (when riece-log-flashback
-    (let ((file (riece-log-get-file identity)))
+    (let ((file (riece-log-get-file identity))
+	  (file-name-coding-system riece-log-file-name-coding-system))
       (when (file-exists-p file)
 	(let (string)
 	  (with-temp-buffer