From 60e0ca7e3676f22ff307675d328f801c744ac827 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Tue, 9 Nov 2004 22:55:13 +0000 Subject: [PATCH] Synch to No Gnus 200411092249. --- lisp/ChangeLog | 10 ++++++++++ lisp/dns.el | 11 +++++++++-- 2 files changed, 19 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c8c05ad..bf27034 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,13 @@ +2004-11-09 Lars Magne Ingebrigtsen + + * dns.el (query-dns): Resolve reverse addresses. + +2004-10-23 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-get-new-news): Use it. + + * gnus-start.el (gnus-check-reasonable-setup): New function. + 2004-11-07 Katsumi Yamaoka * gnus-msg.el (gnus-configure-posting-styles): Don't cause the diff --git a/lisp/dns.el b/lisp/dns.el index bddfe02..7add5dc 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -350,13 +350,20 @@ If TCP-P, the first two bytes of the package with be the length field." ;; connection to the DNS server. (open-network-stream "dns" (current-buffer) server "domain"))))) -(defun query-dns (name &optional type fullp) +(defun query-dns (name &optional type fullp reversep) "Query a DNS server for NAME of TYPE. -If FULLP, return the entire record returned." +If FULLP, return the entire record returned. +If REVERSEP, look up an IP address." (setq type (or type 'A)) (unless dns-servers (dns-parse-resolv-conf)) + (when reversep + (setq name (concat + (mapconcat 'identity (nreverse (split-string name "\\.")) ".") + ".in-addr.arpa") + type 'PTR)) + (if (not dns-servers) (message "No DNS server configuration found") (mm-with-unibyte-buffer -- 1.7.10.4