]> code.delx.au - gnu-emacs/blobdiff - lisp/gnus/nnspool.el
Update copyright year to 2016
[gnu-emacs] / lisp / gnus / nnspool.el
index b20eb3f1848755957319be59a49240d7369899a8..620b8acae0b4dcdc55b1958c34fb3df2ea9f71cf 100644 (file)
@@ -1,6 +1,6 @@
 ;;; nnspool.el --- spool access for GNU Emacs
 
-;; Copyright (C) 1988-1990, 1993-1998, 2000-2013 Free Software
+;; Copyright (C) 1988-1990, 1993-1998, 2000-2016 Free Software
 ;; Foundation, Inc.
 
 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
@@ -174,7 +174,7 @@ there.")
            (and do-message
                 (zerop (% (incf count) 20))
                 (nnheader-message 5 "nnspool: Receiving headers... %d%%"
-                                  (/ (* count 100) number))))
+                                  (floor (* count 100.0) number))))
 
          (when do-message
            (nnheader-message 5 "nnspool: Receiving headers...done"))