* 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 (file)
--- 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 (file)
--- 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)