Don't append coding-system name to filename when coding-system is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4687f71..ead7cae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-12-10  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-log.el (riece-log-make-file-name): Don't append
+       coding-system name to the filename when coding-system is nil.
+
 2010-10-15  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-ctlseq.el (riece-ctlseq-put-attributes): Fix typo.

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 0938456..86b285c 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -111,7 +111,7 @@ It is created if there is at least one instance of Emacs running riece-log.")
                      riece-log-lock-file))))
 
 (defun riece-log-make-file-name (identity coding-system)
-  (expand-file-name (if (featurep 'mule)
+  (expand-file-name (if (and (featurep 'mule) coding-system)
                        (format "%s.txt.%s"
                                (format-time-string "%Y%m%d")
                                coding-system)