X-Git-Url: http://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-log.el;fp=lisp%2Friece-log.el;h=624115b46707e5510d8e47a87fd856acc9e48a91;hp=2f8b4f8ec732f59e295fe5f449aa45f2b50f6ce8;hb=5ebb92f3e60a6187da7d2ec3e9a0d59eab33a724;hpb=f7efeee317783af8c1409f0e7bbfb2c7e7ded7e0

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 2f8b4f8..624115b 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -106,14 +106,10 @@ It is created if there is at least one instance of Emacs running riece-log.")
 	     default-file-name-coding-system)
 	(unless (file-directory-p (file-name-directory file))
 	  (make-directory (file-name-directory file) t))
-	(let ((format-message-function
-	       (or (cdr (assq (riece-message-type message)
-			      riece-message-format-function-alist))
-		   #'riece-format-message)))
-	  (write-region (concat (format-time-string "%H:%M") " "
-				(funcall format-message-function message))
-			nil file t 0
-			riece-log-lock-file)))))
+	(write-region (concat (format-time-string "%H:%M") " "
+			      (riece-format-message message))
+		      nil file t 0
+		      riece-log-lock-file))))
 
 (defun riece-log-make-file-name (identity coding-system)
   (expand-file-name (if (featurep 'mule)