Fixed.
authorueno <ueno>
Fri, 12 Aug 2005 07:30:34 +0000 (07:30 +0000)
committerueno <ueno>
Fri, 12 Aug 2005 07:30:34 +0000 (07:30 +0000)
lisp/riece-log.el

index e1c0a74..70a87b0 100644 (file)
@@ -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") " "