From 3a93269f67284c9eb5a3d0669b769373592c5277 Mon Sep 17 00:00:00 2001 From: ueno Date: Sat, 18 Oct 2003 22:01:41 +0000 Subject: [PATCH] * riece-keyword.el (riece-keyword-message-filter): Ignore messages which belongs to myself. --- lisp/ChangeLog | 3 +++ lisp/riece-keyword.el | 5 ++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4dad3ce..58ab064 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2003-10-18 Daiki Ueno + * riece-keyword.el (riece-keyword-message-filter): Ignore messages + which belongs to myself. + * riece-commands.el (riece-command-topic): Use riece-check-channel-commands-are-usable. (riece-command-invite): Ditto. diff --git a/lisp/riece-keyword.el b/lisp/riece-keyword.el index 5855d42..92e5f05 100644 --- a/lisp/riece-keyword.el +++ b/lisp/riece-keyword.el @@ -57,7 +57,10 @@ ;;; The old XEmacs package doesn't have autoload setting for regexp-opt. (autoload 'regexp-opt "regexp-opt") (defun riece-keyword-message-filter (message) - (if riece-keywords + (if (and riece-keywords + ;; Ignore messages which belongs to myself. + (riece-identity-equal (riece-message-speaker message) + riece-current-nickname)) (let ((regexp (regexp-opt riece-keywords)) (index 0)) (while (string-match regexp (riece-message-text message) index) -- 1.7.10.4