From 366a7775600438dd774d2f582ccc48b881b0327e Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 25 Aug 2003 16:06:58 +0000 Subject: [PATCH] * riece-display.el (riece-join-channel): Parse non-nil elements in riece-default-channel-binding. --- lisp/ChangeLog | 5 +++++ lisp/riece-display.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index cbac16e..ffe5b95 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2003-08-25 Daiki Ueno + * riece-display.el (riece-join-channel): Parse non-nil elements in + riece-default-channel-binding. + +2003-08-25 Daiki Ueno + * riece-identity.el (riece-format-identity): Add 'riece-identity property to the resulting string. diff --git a/lisp/riece-display.el b/lisp/riece-display.el index 9a2400e..810bc1a 100644 --- a/lisp/riece-display.el +++ b/lisp/riece-display.el @@ -191,8 +191,13 @@ Local to the buffers.") (defun riece-join-channel (identity) (unless (riece-identity-member identity riece-current-channels) (setq riece-current-channels - (riece-identity-assign-binding identity riece-current-channels - riece-default-channel-binding)) + (riece-identity-assign-binding + identity riece-current-channels + (mapcar + (lambda (channel) + (if channel + (riece-parse-identity channel))) + riece-default-channel-binding))) (riece-channel-buffer-create identity) (with-current-buffer riece-channel-list-buffer (setq riece-redisplay-buffer t)))) -- 1.7.10.4