From e58c40c8f19140c23d2218f64626514a5619f068 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 18 May 2004 06:23:45 +0000 Subject: [PATCH] * riece-ignore.el (riece-ignore-message-filter): Set the major-mode of riece-ignore-buffer riece-dialogue-mode. --- lisp/ChangeLog | 5 +++++ lisp/riece-ignore.el | 12 +++++++++--- 2 files changed, 14 insertions(+), 3 deletions(-) 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 + + * riece-ignore.el (riece-ignore-message-filter): Set the + major-mode of riece-ignore-buffer riece-dialogue-mode. + 2004-05-18 Daiki Ueno * 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)) -- 2.25.1