From: ueno <ueno>
Date: Thu, 25 Nov 2004 07:12:47 +0000 (+0000)
Subject: * riece-server.el (riece-server-properties): New function.
X-Git-Tag: riece-1_0_6~27
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=0420b26e57fc6a2290c49c66466421c6b3246374;p=elisp%2Friece.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8317d16..fffb718 100644
--- 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
--- 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