emacs-jabber jabber-util.el,2.61,2.62

[Magnus H. <leg...@us...>]

Update of /cvsroot/emacs-jabber/emacs-jabber
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28687

Modified Files:
	jabber-util.el 
Log Message:
New function jabber-find-connection.
Rewrite jabber-find-active-connection to use it.
Idea by Pavel Vyazovoi, http://blog.vyazovoi.info/2009/02/jabber-read-account.html .

Index: jabber-util.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/jabber-util.el,v
retrieving revision 2.61
retrieving revision 2.62
diff -u -d -r2.61 -r2.62
--- jabber-util.el	15 Feb 2009 14:33:53 -0000	2.61
+++ jabber-util.el	24 Feb 2009 23:55:59 -0000	2.62
@@ -128,13 +128,18 @@
     (concat (plist-get sd :username) "@"
 	    (plist-get sd :server))))
 
+(defun jabber-find-connection (bare-jid)
+  "Find the connection to the account named by BARE-JID.
+Return nil if none found."
+  (dolist (jc jabber-connections)
+    (when (string= bare-jid (jabber-connection-bare-jid jc))
+      (return jc))))
+
 (defun jabber-find-active-connection (dead-jc)
   "Given a dead connection, find an active connection to the same account.
 Return nil if none found."
   (let ((jid (jabber-connection-bare-jid dead-jc)))
-    (dolist (jc jabber-connections)
-      (when (string= jid (jabber-connection-bare-jid jc))
-	(return jc)))))
+    (jabber-find-connection jid)))
 
 (defun jabber-jid-username (string)
   "return the username portion of a JID, or nil if no username"