From 743ee4dc16c5d7fb69931c286c80eec4ea0ce14c Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 28 May 2007 21:28:18 +0000 Subject: [PATCH] Fixed. --- lisp/riece-message.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/riece-message.el b/lisp/riece-message.el index 4dafd61..ba156a4 100644 --- a/lisp/riece-message.el +++ b/lisp/riece-message.el @@ -168,10 +168,10 @@ Normally they are *Dialogue* and/or *Others*." "\n")))) (defun riece-format-message (message &optional global) - (apply (or (cdr (assq (riece-message-type message) - riece-message-format-function-alist)) - #'riece-format-message-1) - message global)) + (funcall (or (cdr (assq (riece-message-type message) + riece-message-format-function-alist)) + #'riece-format-message-1) + message global)) (defun riece-display-message-1 (message) (let ((buffer (riece-message-buffer message)) -- 1.7.10.4