-;;; riece-log.el --- Save IRC logs
+;;; riece-log.el --- Save IRC logs -*- lexical-binding: t -*-
;; Copyright (C) 2003 OHASHI Akira
;; Copyright (C) 2004 Daiki Ueno
(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)
+ (file (riece-log-make-file-name
+ (if (and (riece-message-private-p message)
+ (not (riece-message-own-p message)))
+ (riece-message-speaker message)
+ (riece-message-target message))
+ coding-system-for-write))
+ (file-name-coding-system 'no-conversion))
(unless (file-directory-p (file-name-directory file))
(make-directory (file-name-directory file) t))
(write-region (concat (format-time-string "%H:%M") " "
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)
(defun riece-log-insert (identity lines)
"Insert logs for IDENTITY at most LINES.
If LINES is t, insert today's logs entirely."
- (let* (file-name-coding-system
- default-file-name-coding-system
+ (let* ((file-name-coding-system 'no-conversion)
(files (riece-log-list-files identity
(if (eq lines t) (current-time))))
name coding-system date point)