; Merge from origin/emacs-25

[gnu-emacs] / lisp / gnus / nneething.el

diff --git a/lisp/gnus/nneething.el b/lisp/gnus/nneething.el
index 183e3967632dd65049eb2765d322e592272633e2..0d9044fb71245cfb45f7dc8180d9ddd2e5968b76 100644 (file)
--- a/lisp/gnus/nneething.el
+++ b/lisp/gnus/nneething.el
@@ -106,7 +106,7 @@ included.")
          (and large
               (zerop (% count 20))
               (nnheader-message 5 "nneething: Receiving headers... %d%%"
-                                (/ (* count 100) number))))
+                                (floor (* count 100.0) number))))
 
        (when large
          (nnheader-message 5 "nneething: Receiving headers...done"))