X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fdns.el;h=3c1bd54acfdcbe3c5a6794dc132db06fb4637297;hb=d7925de009d5e3047e07e52657d7312d9f97979c;hp=4469a544c3c582842030234d3b0b96e03beb6d32;hpb=4c2a7a1c25d5b10316f35f28c972ef3e70225f25;p=gnus diff --git a/lisp/dns.el b/lisp/dns.el index 4469a544c..3c1bd54ac 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -1,7 +1,6 @@ ;;; dns.el --- Domain Name Service lookups -;; Copyright (C) 2002-2011 -;; Free Software Foundation, Inc. +;; Copyright (C) 2002-2011 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: network comm @@ -253,8 +252,8 @@ If TCP-P, the first two bytes of the package with be the length field." (nreverse spec)))) (defun dns-read-int32 () - ;; Full 32 bit Integers can't be handled by Emacs. If we use - ;; floats, it works. + ;; Full 32 bit Integers can't be handled by 32-bit Emacsen. If we + ;; use floats, it works. (format "%.0f" (+ (* (dns-read-bytes 1) 16777216.0) (dns-read-bytes 3))))