From 449e46959f6777a3d976a7bb869defcaf43c9639 Mon Sep 17 00:00:00 2001 From: kaoru Date: Wed, 2 Feb 2005 14:04:38 +0000 Subject: [PATCH] * riece-message.el (riece-display-message): When filter-function return nil, escape from while loop. --- lisp/ChangeLog | 5 +++++ lisp/riece-message.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) 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 + + * riece-message.el (riece-display-message): When filter-function + return nil, escape from while loop. + 2005-02-02 Daiki Ueno * 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 -- 1.7.10.4