From c7ad101c4cbfbf0e88a22c9ffc38e05dfa12b16d Mon Sep 17 00:00:00 2001 From: Nic Ferier Date: Fri, 21 Sep 2012 10:02:34 +0100 Subject: [PATCH] fix specified username selection and bump version --- shoes-off.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/shoes-off.el b/shoes-off.el index 988cb23..0ba09e4 100644 --- a/shoes-off.el +++ b/shoes-off.el @@ -6,7 +6,7 @@ ;; Keywords: comm ;; Maintainer: Nic Ferrier ;; 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