fix specified username selection and bump version

nicferrier · Sep 21, 2012 · c7ad101 · c7ad101
1 parent e03364f
commit c7ad101
Showing 1 changed file with 2 additions and 4 deletions.
diff --git a/shoes-off.el b/shoes-off.el
@@ -6,7 +6,7 @@
 ;; Keywords: comm
 ;; Maintainer: Nic Ferrier <nferrier@ferrier.me.uk>
 ;; Created: 19th September 2012
-;; Version: 0.0.10
+;; Version: 0.1.2
 ;; Package-Requires: ((kv "0.0.5")(anaphora "0.0.2"))
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -150,9 +150,7 @@ Returns `nil' if auth is not found."
                          ;; Pick the first off the server alist
                          (car (plist-get bouncer :server-alist))
                          ;; else pick the specified one
-                         (aget
-                          (plist-get bouncer :server-alist)
-                          service))))
+                         (assoc service (plist-get bouncer :server-alist)))))
                 (plist-put
                  (copy-list bouncer)
                  :username