Importing Oort Gnus v0.04.

[elisp/gnus.git-] / lisp / dig.el

diff --git a/lisp/dig.el b/lisp/dig.el
index 18019e9..d719c38 100644 (file)
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -1,5 +1,5 @@
 ;;; dig.el --- Domain Name System dig interface
-;; Copyright (c) 2000 Free Software Foundation, Inc.
+;; Copyright (c) 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Simon Josefsson <simon@josefsson.org>
 ;; Keywords: DNS BIND dig
@@ -31,6 +31,10 @@
 ;; For use in elisp programs, call `dig-invoke' and use
 ;; `dig-extract-rr' to extract resource records.
 
+;;; Release history:
+
+;; 2000-10-28  posted on gnu.emacs.sources
+
 ;;; Code:
 
 (eval-when-compile (require 'cl))
@@ -58,9 +62,9 @@ If nil, use system defaults."
   "Default expressions to highlight in dig mode."
   :type 'sexp
   :group 'dig)
- 
+
 (defun dig-invoke (domain &optional
-                         query-type query-class query-option 
+                         query-type query-class query-option
                          dig-option server)
   "Call dig with given arguments and return buffer containing output.
 DOMAIN is a string with a DNS domain. QUERY-TYPE is an optional string
@@ -89,7 +93,7 @@ Buffer should contain output generated by `dig-invoke'."
   (save-excursion
     (goto-char (point-min))
     (if (re-search-forward
-        (concat domain "\\.?[\t ]+[0-9wWdDhHmMsS]+[\t ]+" 
+        (concat domain "\\.?[\t ]+[0-9wWdDhHmMsS]+[\t ]+"
                 (upcase (or class "IN")) "[\t ]+" (upcase (or type "A")))
         nil t)
        (let (b e)
@@ -144,7 +148,7 @@ Buffer should contain output generated by `dig-invoke'."
         '(dig-font-lock-keywords t)))
   (when (featurep 'font-lock)
     (font-lock-set-defaults)))
-  
+
 (defun dig-exit ()
   "Quit dig output buffer."
   (interactive)
@@ -155,7 +159,7 @@ Buffer should contain output generated by `dig-invoke'."
   "Query addresses of a DOMAIN using dig, by calling `dig-invoke'.
 Optional arguments are passed to `dig-invoke'."
   (interactive "sHost: ")
-  (switch-to-buffer 
+  (switch-to-buffer
    (dig-invoke domain query-type query-class query-option dig-option server))
   (goto-char (point-min))
   (and (search-forward ";; ANSWER SECTION:" nil t)