From: Reiner Steib Date: Fri, 26 Dec 2008 17:23:53 +0000 (+0000) Subject: (dns-set-servers): Check "Address". Fix typo. X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=bbb4933ae008b8e72d5b04c255b4b7479fc7edcc;p=gnus (dns-set-servers): Check "Address". Fix typo. --- 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)