From 6709966b7f74db1a88e6aa0bffdcf1d13579b714 Mon Sep 17 00:00:00 2001 From: ueno Date: Mon, 16 Feb 2004 09:12:53 +0000 Subject: [PATCH] * riece-300.el (riece-handle-353-message): Print user list in channel buffer. --- lisp/ChangeLog | 5 +++++ lisp/riece-300.el | 14 ++++++++++++++ 2 files changed, 19 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c4ff54a..a779dcf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-02-16 Daiki Ueno + + * riece-300.el (riece-handle-353-message): Print user list in + channel buffer. + 2004-02-14 Yoichi NAKAYAMA * riece-lsdb.el (riece-lsdb-lookup-records): Build diff --git a/lisp/riece-300.el b/lisp/riece-300.el index 742e9e6..3fd9acc 100644 --- a/lisp/riece-300.el +++ b/lisp/riece-300.el @@ -238,6 +238,20 @@ channel (substring (car users) 1) t)) (riece-naming-assert-join (car users) channel))) (setq users (cdr users))) + (let* ((channel-identity (riece-make-identity channel + riece-server-name)) + (buffer (riece-channel-buffer channel-identity))) + (riece-insert-info buffer (concat "Users: " string "\n")) + (riece-insert-info + (if (and riece-channel-buffer-mode + (not (eq buffer riece-channel-buffer))) + (list riece-dialogue-buffer riece-others-buffer) + riece-dialogue-buffer) + (concat + (riece-concat-server-name + (format "Users on %s: %s" + (riece-format-identity channel-identity t) string)) + "\n"))) (riece-redisplay-buffers)))) (defun riece-handle-322-message (prefix number name string) -- 1.7.10.4