From: ueno <ueno>
Date: Tue, 18 May 2004 06:23:45 +0000 (+0000)
Subject: * riece-ignore.el (riece-ignore-message-filter): Set the
X-Git-Tag: riece-1_0_0~49
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=455a453a9ee2eca80aa112c6ca77f75986480657;p=elisp%2Friece.git

* 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,5 +1,10 @@
 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.
 	(riece-ignore-discard-message): Fixed custom spec to follow the
 	logging 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))