(gnus-face-from-file): Decrease quant in smaller

steps when < 10.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e859ed8..4b26bbf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-12-06  Reiner Steib  <Reiner.Steib@gmx.de>
+
+       * gnus-fun.el (gnus-face-from-file): Decrease quant in smaller
+       steps when < 10.
+
 2005-12-02  ARISAWA Akihiro  <ari@mbf.ocn.ne.jp>  (tiny change)
 
        * mm-view.el (mm-inline-text-html-render-with-w3m): Fix misplaced

diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el
index fe39d85..6e2fc0c 100644 (file)
--- a/lisp/gnus-fun.el
+++ b/lisp/gnus-fun.el
@@ -172,7 +172,7 @@ different input formats."
                         quant))))
        (if (> (length attempt) 726)
            (progn
-             (setq quant (- quant 2))
+             (setq quant (- quant (if (< quant 10) 1 2)))
              (gnus-message 9 "Length %d; trying quant %d"
                            (length attempt) quant))
          (setq done t)))