Undo the last change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index da41794..ef60a5c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,5 @@
 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.
 

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 66aa3bd..4398f8b 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -61,11 +61,6 @@ 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))
@@ -74,8 +69,7 @@ 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)
-       (file-name-coding-system riece-log-file-name-coding-system))
+       (coding-system-for-write riece-log-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") " "
@@ -107,8 +101,7 @@ 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))
-         (file-name-coding-system riece-log-file-name-coding-system))
+    (let ((file (riece-log-get-file identity)))
       (when (file-exists-p file)
        (let (string)
          (with-temp-buffer