From: Daiki Ueno <ueno@unixuser.org>
Date: Tue, 18 May 2004 06:23:45 +0000 (+0000)
Subject: * riece-ignore.el (riece-ignore-message-filter): Set the
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=e58c40c8f19140c23d2218f64626514a5619f068;p=riece

* riece-ignore.el (riece-ignore-message-filter): Set the
major-mode of riece-ignore-buffer riece-dialogue-mode.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6f62326..bd997a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-05-18  Daiki Ueno  <ueno@unixuser.org>
+
+	* riece-ignore.el (riece-ignore-message-filter): Set the
+	major-mode of riece-ignore-buffer riece-dialogue-mode.
+
 2004-05-18  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-ignore.el (riece-ignore-buffer-name): New user option.
diff --git a/lisp/riece-ignore.el b/lisp/riece-ignore.el
index 9a455e6..6b3bbaf 100644
--- a/lisp/riece-ignore.el
+++ b/lisp/riece-ignore.el
@@ -96,12 +96,18 @@ Otherwise, they are not removed from IRC buffers, but are hidden with
       (if riece-ignore-discard-message
 	  (when (eq riece-ignore-discard-message 'log)
 	    (unless riece-ignore-buffer
-	      (setq riece-ignore-buffer
-		    (riece-get-buffer-create riece-ignore-buffer-name)))
+	      (with-current-buffer (setq riece-ignore-buffer
+					 (riece-get-buffer-create
+					  riece-ignore-buffer-name
+					  'riece-dialogue-mode))
+		(riece-dialogue-mode)))
 	    (save-excursion
 	      (set-buffer riece-ignore-buffer)
 	      (goto-char (point-max))
-	      (insert (riece-format-message message t))))
+	      (let ((inhibit-read-only t)
+		    buffer-read-only)
+		(insert (concat (format-time-string "%H:%M") " "
+				(riece-format-message message t))))))
 	(put-text-property 0 (length (riece-message-text message))
 			   'invisible 'riece-ignore
 			   (riece-message-text message))