(query-dig): new function

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 17e0800..8867122 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2002-12-30  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * dig.el (query-dig): new function
+
 2002-12-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * flow-fill.el (fill-flowed): Don't infloop on too long fill

diff --git a/lisp/dig.el b/lisp/dig.el
index d719c38..f7883f8 100644 (file)
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -168,6 +168,18 @@ Optional arguments are passed to `dig-invoke'."
   (setq buffer-read-only t)
   (set-buffer-modified-p nil))
 
+;; named for consistency with query-dns in dns.el
+(defun query-dig (domain &optional
+                  query-type query-class query-option dig-option server)
+  "Query addresses of a DOMAIN using dig, by calling `dig-invoke' and `dig-extract-rr'.
+Optional arguments are passed to `dig-invoke' and `dig-extract-rr'.  Returns nil for a nonexistent domain."
+(let ((buffer (dig-invoke domain query-type query-class query-option dig-option server)))
+  (when buffer
+      (switch-to-buffer buffer)
+      (setq digger (dig-extract-rr domain query-type query-class))
+      (kill-buffer buffer)
+      digger)))
+
 (provide 'dig)
 
 ;;; dig.el ends here