projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't overflow if computing approximate percentage
[gnus]
/
lisp
/
gnus-registry.el
diff --git
a/lisp/gnus-registry.el
b/lisp/gnus-registry.el
index
0cb5960
..
5044397
100644
(file)
--- a/
lisp/gnus-registry.el
+++ b/
lisp/gnus-registry.el
@@
-1100,7
+1100,7
@@
only the last one's marks are returned."
(when (and (< 0 expected)
(= 0 (mod count 100)))
(message "importing: %d of %d (%.2f%%)"
(when (and (< 0 expected)
(= 0 (mod count 100)))
(message "importing: %d of %d (%.2f%%)"
- count expected (/ (* 100 count) expected)))
+ count expected (/ (* 100
.0
count) expected)))
(setq entry (car-safe old)
old (cdr-safe old))
(let* ((id (car-safe entry))
(setq entry (car-safe old)
old (cdr-safe old))
(let* ((id (car-safe entry))