X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fnnbabyl.el;fp=lisp%2Fnnbabyl.el;h=ae417a0ffe8351cd6c8b1583b4b99a4dfd35606e;hp=d060c2a80ddecb69c2c322a83d9684025a211224;hb=2eb3613948759b7b264ebd7f7d81b3b592bc381d;hpb=d33ef478be22b74e27696dc88409a6ec6b7c46c3

diff --git a/lisp/nnbabyl.el b/lisp/nnbabyl.el
index d060c2a80..ae417a0ff 100644
--- a/lisp/nnbabyl.el
+++ b/lisp/nnbabyl.el
@@ -105,7 +105,7 @@
 	     (> number nnmail-large-newsgroup)
 	     (zerop (% (incf count) 20))
 	     (nnheader-message 5 "nnbabyl: Receiving headers... %d%%"
-			       (/ (* count 100) number))))
+			       (floor (* count 100.0) number))))
 
       (and (numberp nnmail-large-newsgroup)
 	   (> number nnmail-large-newsgroup)