* riece-server.el (riece-server-properties): New function.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8317d16..fffb718 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-11-25  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-server.el (riece-server-properties): New function.
+
 2004-11-22  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-display.el (riece-update-status-indicators): Format

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 7512ae4..04ab199 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -286,6 +286,15 @@ the `riece-server-keyword-map' variable."
              (throw 'found t))
          (setq alist (cdr alist)))))))
 
+(defun riece-server-properties (server-name)
+  "Return a list of properties associated with SERVER-NAME."
+  (if (equal server-name "")
+      riece-server
+    (let ((entry (assoc server-name riece-server-alist)))
+      (unless entry
+       (error "No such server"))
+      (cdr entry))))
+
 (provide 'riece-server)
 
 ;;; riece-server.el ends here