From: ueno <ueno>
Date: Mon, 28 May 2007 21:28:18 +0000 (+0000)
Subject: Fixed.
X-Git-Tag: riece-4_0_0~9
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Friece.git;a=commitdiff_plain;h=743ee4dc16c5d7fb69931c286c80eec4ea0ce14c

Fixed.
---

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))