From: Marc van der Wal <marc+emacs@van-der-wal.fr>
Date: Mon, 17 Jul 2023 08:56:06 +0000 (+0200)
Subject: Check correct bit for DNS truncation
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fcf9e91f448fb3de43af049a15d716ee37bf9185;p=emacs.git

Check correct bit for DNS truncation

* lisp/net/dns.el (dns-read): The TC bit is the second bit, not the
third bit.  (Bug#64678)

Copyright-paperwork-exempt: yes
---

diff --git a/lisp/net/dns.el b/lisp/net/dns.el
index 1e320a2124a..42e7fb415d3 100644
--- a/lisp/net/dns.el
+++ b/lisp/net/dns.el
@@ -212,7 +212,7 @@ If TCP-P, the first two bytes of the packet will be the length field."
                 spec))
         (push (list 'authoritative-p (if (zerop (logand byte (ash 1 2)))
                                          nil t)) spec)
-        (push (list 'truncated-p (if (zerop (logand byte (ash 1 2))) nil t))
+        (push (list 'truncated-p (if (zerop (logand byte (ash 1 1))) nil t))
               spec)
         (push (list 'recursion-desired-p
                     (if (zerop (logand byte (ash 1 0))) nil t)) spec))