master fcf9e91f448: Check correct bit for DNS truncation

[Robert Pluim]

branch: master
commit fcf9e91f448fb3de43af049a15d716ee37bf9185
Author: Marc van der Wal <marc+emacs@van-der-wal.fr>
Commit: Robert Pluim <rpluim@gmail.com>

    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
---
 lisp/net/dns.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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))