* dns.el (query-dns): Make sure we check the buffer size before

removing tcp headers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 287c6c5..953bbf0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * dns.el (query-dns): Make sure we check the buffer size before
+       removing tcp headers.
+
 2005-12-16  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-article-delete-text-of-type): Enable it to

diff --git a/lisp/dns.el b/lisp/dns.el
index fdb4ca4..2ab3e26 100644 (file)
--- a/lisp/dns.el
+++ b/lisp/dns.el
@@ -404,7 +404,8 @@ If REVERSEP, look up an IP address."
            (decf times step))
          (ignore-errors
            (delete-process process))
-         (when tcp-p
+         (when (and tcp-p
+                    (>= (buffer-size) 2))
            (goto-char (point-min))
            (delete-region (point) (+ (point) 2)))
          (unless (zerop (buffer-size))