Fixed.
authorueno <ueno>
Mon, 28 May 2007 21:28:18 +0000 (21:28 +0000)
committerueno <ueno>
Mon, 28 May 2007 21:28:18 +0000 (21:28 +0000)
lisp/riece-message.el

index 4dafd61..ba156a4 100644 (file)
@@ -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))