From: Daiki Ueno Date: Sun, 5 Dec 2004 07:07:07 +0000 (+0000) Subject: * riece-log.el (riece-log-display-message-function): Switch to X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=e8341afe852410ba6404d4fa74b2c7504157f39f;p=riece * riece-log.el (riece-log-display-message-function): Switch to riece-dialogue-buffer when writing messages from other people to a file. [cf. ] --- 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