-;;; 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
(require 'riece-message)
(require 'riece-button)
+(require 'riece-mcat)
(defgroup riece-log nil
"Save IRC logs."
'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-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)
(when riece-log-flashback
(riece-insert-info (current-buffer)
(if (eq riece-log-flashback t)
- "Recent messages of the day:\n"
- (format "Recent messages up to %d lines:\n"
+ (riece-mcat "Recent messages of the day:\n")
+ (format (riece-mcat
+ "Recent messages up to %d lines:\n")
riece-log-flashback)))
(let (buffer-read-only
(point (goto-char (point-max))))