X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fdns.el;h=2d4c2d8cd8b2bc3437fb249e5ebd29e75ef623ae;hp=dfa17995a23d8cfd6e76d03331bef03c718105b5;hb=6596e287aaa6b58bc2603bc113a99ee22a924381;hpb=c9a393eeb329a99695566342a9f03b8a30000898 diff --git a/lisp/dns.el b/lisp/dns.el index dfa17995a..2d4c2d8cd 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -151,7 +151,7 @@ If TCP-P, the first two bytes of the package with be the length field." (lsh (if (dns-get 'truncated-p spec) 1 0) -1) (lsh (if (dns-get 'recursion-desired-p spec) 1 0) 0))) (dns-write-bytes - (cond + (cond ((eq (dns-get 'response-code spec) 'no-error) 0) ((eq (dns-get 'response-code spec) 'format-error) 1) ((eq (dns-get 'response-code spec) 'server-failure) 2)