* riece-irc.el (riece-irc-open-server): Send USER command with

[riece] / lisp / riece-server.el

diff --git a/lisp/riece-server.el b/lisp/riece-server.el
index 7512ae4..2defd70 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -36,6 +36,7 @@
       (:service 6667)
       (:nickname riece-nickname)
       (:username riece-username)
+      (:realname riece-realname)
       (:password)
       (:function riece-default-open-connection-function)
       (:coding riece-default-coding-system))
@@ -286,6 +287,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