From: ueno <ueno>
Date: Fri, 12 Aug 2005 07:30:34 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: channel-coding-branchpoint~121
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=df7530ff260ba989e9661cfb23355562658e88db;p=elisp%2Friece.git

Fixed.
---

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index e1c0a74..70a87b0 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -98,15 +98,15 @@ It is created if there is at least one instance of Emacs running riece-log.")
 
 (defun riece-log-display-message-function (message)
   (if riece-log-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 (riece-message-target message)
-					    coding-system-for-write))
-	    file-name-coding-system
-	    default-file-name-coding-system)
+      (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 (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") " "