* 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 (file)
--- 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 (file)
--- 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))