From bbb4933ae008b8e72d5b04c255b4b7479fc7edcc Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Fri, 26 Dec 2008 17:23:53 +0000 Subject: [PATCH] (dns-set-servers): Check "Address". Fix typo. --- lisp/ChangeLog | 4 ++++ lisp/dns.el | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 402c0c56b..28dd79b4d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2008-12-26 Reiner Steib + + * dns.el (dns-set-servers): Check "Address". Fix typo. + 2008-12-25 Reiner Steib * dns.el (dns-set-servers): Renamed from dns-parse-resolv-conf. Call diff --git a/lisp/dns.el b/lisp/dns.el index eb7a8e1b7..ba6269a80 100644 --- 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) -- 2.25.1