Index: lisp/dns.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/dns.el,v
retrieving revision 7.4
diff -u -r7.4 dns.el
--- lisp/dns.el	18 Mar 2004 22:56:09 -0000	7.4
+++ lisp/dns.el	15 May 2004 20:21:11 -0000
@@ -56,6 +56,7 @@
     (MX 15)
     (TXT 16)
     (AAAA 28) ; RFC3596
+    (SRV 33) ; RFC2782
     (AXFR 252)
     (MAILB 253)
     (MAILA 254)
@@ -284,6 +285,11 @@
 		  (list 'retry (dns-read-int32))
 		  (list 'expire (dns-read-int32))
 		  (list 'minimum (dns-read-int32))))
+	   ((eq type 'SRV)
+	    (list (list 'priority (dns-read-bytes 2))
+		  (list 'weight (dns-read-bytes 2))
+		  (list 'port (dns-read-bytes 2))
+		  (list 'target (dns-read-name buffer))))
 	   ((eq type 'MX)
 	    (cons (dns-read-bytes 2) (dns-read-name buffer)))
 	   ((or (eq type 'CNAME) (eq type 'NS) (eq type 'PTR))