From e8341afe852410ba6404d4fa74b2c7504157f39f Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Sun, 5 Dec 2004 07:07:07 +0000 Subject: [PATCH] * riece-log.el (riece-log-display-message-function): Switch to riece-dialogue-buffer when writing messages from other people to a file. [cf. ] --- lisp/ChangeLog | 7 +++++++ lisp/riece-log.el | 15 ++++++++------- 2 files changed, 15 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 71a6e8c..6d0e47c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-12-05 Daiki Ueno + + * riece-log.el (riece-log-display-message-function): Switch to + riece-dialogue-buffer when writing messages from other people to a + file. + [cf. ] + 2004-12-05 Daiki Ueno * Riece: Version 1.0.6 released. diff --git a/lisp/riece-log.el b/lisp/riece-log.el index 352fa03..a7598b3 100644 --- a/lisp/riece-log.el +++ b/lisp/riece-log.el @@ -73,13 +73,14 @@ If integer, flash back only this line numbers. t means all lines." (defun riece-log-display-message-function (message) (if riece-log-enabled - (let ((file (riece-log-get-file (riece-message-target message))) - (coding-system-for-write riece-log-coding-system)) - (unless (file-directory-p (file-name-directory file)) - (make-directory (file-name-directory file) t)) - (write-region (concat (format-time-string "%H:%M") " " - (riece-format-message message)) - nil file t 0)))) + (with-current-buffer riece-dialogue-buffer + (let ((file (riece-log-get-file (riece-message-target message))) + (coding-system-for-write riece-log-coding-system)) + (unless (file-directory-p (file-name-directory file)) + (make-directory (file-name-directory file) t)) + (write-region (concat (format-time-string "%H:%M") " " + (riece-format-message message)) + nil file t 0))))) (defun riece-log-get-file (identity) (expand-file-name -- 2.25.1