From: ueno <ueno>
Date: Mon, 16 Feb 2004 09:12:53 +0000 (+0000)
Subject: * riece-300.el (riece-handle-353-message): Print user list in
X-Git-Tag: signal-slot-branchpoint~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=6709966b7f74db1a88e6aa0bffdcf1d13579b714;p=elisp%2Friece.git

* riece-300.el (riece-handle-353-message): Print user list in
channel buffer.
---

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  <ueno@unixuser.org>
+
+	* riece-300.el (riece-handle-353-message): Print user list in
+	channel buffer.
+
 2004-02-14  Yoichi NAKAYAMA  <yoichi@geiin.org>
 
 	* 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)