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

diff --git a/lisp/riece-log.el b/lisp/riece-log.el
index 624115b..2f8b4f8 100644
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -106,10 +106,14 @@ 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))
-	(write-region (concat (format-time-string "%H:%M") " "
-			      (riece-format-message message))
-		      nil file t 0
-		      riece-log-lock-file))))
+	(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)))))
 
 (defun riece-log-make-file-name (identity coding-system)
   (expand-file-name (if (featurep 'mule)