;;; 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.
+ (not (riece-message-own-p message)))
(let ((regexp (regexp-opt riece-keywords))
(index 0))
(while (string-match regexp (riece-message-text message) index)