Changes committed gnus/lisp (ChangeLog dns.el)

Modified: ChangeLog dns.el

(dns-set-servers): Check "Address".  Fix typo.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1959 gnus/lisp/ChangeLog:7.1960
--- ChangeLog:7.1959	Thu Dec 25 18:53:25 2008
+++ ChangeLog	Fri Dec 26 18:23:53 2008
@@ -1,3 +1,7 @@
+2008-12-26  Reiner Steib  <[email protected]>
+
+	* dns.el (dns-set-servers): Check "Address".  Fix typo.
+
 2008-12-25  Reiner Steib  <[email protected]>
 
 	* dns.el (dns-set-servers): Renamed from dns-parse-resolv-conf.  Call
Index: dns.el
diff -u gnus/lisp/dns.el:7.24 gnus/lisp/dns.el:7.25
--- dns.el:7.24	Thu Dec 25 18:53:25 2008
+++ dns.el	Fri Dec 26 18:23:53 2008
@@ -314,8 +314,8 @@
 	  (call-process "nslookup" nil t nil "localhost")
 	  (goto-char (point-min))
 	  (re-search-forward
-	   "^Server:[ \t]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" nil t)
-	  (setq dns-servers) (list (match-string 1))))))
+	   "^Address:[ \t]*\\([0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+\\)" nil t)
+	  (setq dns-servers (list (match-string 1)))))))
 
 (defun dns-read-txt (string)
   (if (> (length string) 1)