From: ueno <ueno>
Date: Wed, 26 Mar 2008 14:37:57 +0000 (+0000)
Subject: * riece-keyword.el (riece-keyword-message-filter): Don't match to
X-Git-Tag: riece-5_0_0~33
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=14bd99170faa7d0083ac01e6d154bc4976d54225;p=elisp%2Friece.git

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