X-Git-Url: http://cgit.sxemacs.org/?a=blobdiff_plain;f=lisp%2Fdns.el;h=3c1bd54acfdcbe3c5a6794dc132db06fb4637297;hb=586f35bdde164965e6b3d613db995010b9dc7e4e;hp=06469eec59cd76e43be84a58e52f170a6b278461;hpb=477d2d1e18caaf92a73dbbcbfb1e87d3c104a10a;p=gnus diff --git a/lisp/dns.el b/lisp/dns.el index 06469eec5..3c1bd54ac 100644 --- a/lisp/dns.el +++ b/lisp/dns.el @@ -1,7 +1,6 @@ ;;; dns.el --- Domain Name Service lookups -;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 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))))