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

[riece] / lisp / riece-log.el

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)