Cleaning up leading and trailing spaces.

[gnus] / lisp / dig.el

diff --git a/lisp/dig.el b/lisp/dig.el
index 18019e9..de6a769 100644 (file)
--- a/lisp/dig.el
+++ b/lisp/dig.el
@@ -58,9 +58,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 +89,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 +144,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 +155,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)