X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-message.el;h=c943e50ce5910c359fe93f020115041984a56080;hp=033c3193bdf4ed5274e82c63763ec767d0c46d52;hb=34e65e2983d024297aec5e6b3c5d06212b0918fe;hpb=8bf13d098caea1415e8580d41bee7e61a954696e

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