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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 402c0c5..28dd79b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-12-26  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * dns.el (dns-set-servers): Check "Address".  Fix typo.
+
 2008-12-25  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * dns.el (dns-set-servers): Renamed from dns-parse-resolv-conf.  Call

diff --git a/lisp/dns.el b/lisp/dns.el
index eb7a8e1..ba6269a 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -314,8 +314,8 @@ Parses \"/etc/resolv.conf\" or calls \"nslookup\"."
          (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)