(riece-log-encode-file-name): Do not convert ".".

[riece] / lisp / riece-log.el

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index f9c9fe3..f511d70 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -125,7 +125,7 @@ If integer, flash back only this line numbers. t means all lines."
            (encode-coding-string file-name
                                  riece-log-file-name-coding-system)))
   (let ((index 0))
-    (while (string-match "[^-0-9A-Za-z=_\x80-\xFF]" file-name index)
+    (while (string-match "[^-0-9A-Za-z=_.\x80-\xFF]" file-name index)
       (setq file-name (replace-match
                       (format "=%02X"
                               (aref file-name (match-beginning 0)))