Fix translations.

[elisp/gnus.git-] / lisp / gnus-group.el

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index b8eddb2..c7fbad9 100644 (file)
--- 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)
         (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)))
     (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)
 ;;;
 
 (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).
 Compaction means removing gaps between article numbers.  Hence, this
 operation is only meaningful for back ends using one file per article
 \(e.g. nnml).