emacs-jabber srv.el,2.2,2.3

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

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

Modified Files:
	srv.el 
Log Message:
query-dns was renamed to dns-query; check for both.

Index: srv.el
===================================================================
RCS file: /cvsroot/emacs-jabber/emacs-jabber/srv.el,v
retrieving revision 2.2
retrieving revision 2.3
diff -u -d -r2.2 -r2.3
--- srv.el	1 May 2007 16:37:16 -0000	2.2
+++ srv.el	19 Feb 2009 00:15:14 -0000	2.3
@@ -46,7 +46,10 @@
     (error "No dns.el available"))
   (unless (assq 'SRV dns-query-types)
     (error "dns.el doesn't support SRV lookups"))
-  (let* ((result (query-dns target 'SRV t))
+  ;; `dns-query' used to be `query-dns'.  Try both names for now.
+  (let* ((result (if (fboundp 'query-dns)
+		     (query-dns target 'SRV t)
+		   (dns-query target 'SRV t)))
 	 (answers (mapcar #'(lambda (a)
 			      (cadr (assq 'data a)))
 			  (cadr (assq 'answers result))))