From: kaoru <kaoru>
Date: Wed, 2 Feb 2005 14:04:38 +0000 (+0000)
Subject: * riece-message.el (riece-display-message): When filter-function
X-Git-Tag: riece-1_0_7~62
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=449e46959f6777a3d976a7bb869defcaf43c9639;p=elisp%2Friece.git

* riece-message.el (riece-display-message): When filter-function
return nil, escape from while loop.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5e88cc8..fa18dc7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-02  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* riece-message.el (riece-display-message): When filter-function
+	return nil, escape from while loop.
+
 2005-02-02  Daiki Ueno  <ueno@unixuser.org>
 
 	* riece-debug.el (riece-debug-standard-output-buffer): Use
diff --git a/lisp/riece-message.el b/lisp/riece-message.el
index 033c319..c943e50 100644
--- a/lisp/riece-message.el
+++ b/lisp/riece-message.el
@@ -181,7 +181,7 @@ Normally they are *Dialogue* and/or *Others*."
   "Display MESSAGE object."
   (let ((functions riece-message-filter-functions))
     (setq message (copy-sequence message))
-    (while functions
+    (while (and functions message)
       (setq message (funcall (car functions) message)
 	    functions (cdr functions)))
     (if message