* riece-server.el (riece-server-properties): New function.
authorueno <ueno>
Thu, 25 Nov 2004 07:12:47 +0000 (07:12 +0000)
committerueno <ueno>
Thu, 25 Nov 2004 07:12:47 +0000 (07:12 +0000)
lisp/ChangeLog
lisp/riece-server.el

index 8317d16..fffb718 100644 (file)
@@ -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
index 7512ae4..04ab199 100644 (file)
@@ -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