;;; 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)