* riece-keyword.el (riece-keyword-message-filter): Don't match to

empty string if riece-keywords is nil, or it only contains regexp
matchers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e6341ae..190d0fe 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2008-03-26  Takeru Naito <takeru.naito@gmail.com>
+
+       * riece-keyword.el (riece-keyword-message-filter): Don't match to
+       empty string if riece-keywords is nil, or it only contains regexp
+       matchers.
+
 2008-02-01  Daiki Ueno  <ueno@unixuser.org>
 
        * riece.el (riece-save-variables-files): Display message

diff --git a/lisp/riece-keyword.el b/lisp/riece-keyword.el
index 0d5c8e3..22acb0e 100644 (file)
--- a/lisp/riece-keyword.el
+++ b/lisp/riece-keyword.el
@@ -86,7 +86,8 @@ and the matched message object."
                                 (setq keywords (cons matcher keywords)))
                              matcher))
                          riece-keywords))
-              (list (cons (regexp-opt keywords) 0))))
+              (if keywords
+                  (list (cons (regexp-opt keywords) 0)))))
             index)
        (while alist
          (setq index 0)