X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fgnus-group.el;h=c7fbad9433c410a5e90ba481853a63f9b6c5df86;hb=f3f2fe724c3d2e84aa6a9f579465c30da46b75ca;hp=b8eddb26ca3d3d06bf306a51448639633d895317;hpb=f7c938116d29a27091f29e2fe021a46927e11a63;p=elisp%2Fgnus.git-

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index b8eddb2..c7fbad9 100644
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -1742,7 +1742,7 @@ If FIRST-TOO, the current line is also eligible as a target."
 	 (size (+ size-in-cache size-in-agent))
 	 (suffix '("B" "K" "M" "G"))
 	 (scale 1024.0)
-	 (cutoff (* 10 scale)))
+	 (cutoff scale))
     (while (> size cutoff)
       (setq size (/ size scale)
 	    suffix (cdr suffix)))
@@ -4394,7 +4394,7 @@ This command may read the active file."
 ;;;
 
 (defun gnus-group-compact-group (group)
-  "Conpact the current group.
+  "Compact the current group.
 Compaction means removing gaps between article numbers.  Hence, this
 operation is only meaningful for back ends using one file per article
 \(e.g. nnml).