(nnml-compressed-files-size-threshold): New variable.

(nnml-save-mail): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 54cdcf0..64c916f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,10 @@
 2005-09-11  Romain Francoise  <romain@orebokech.com>
 
+       * nnml.el (nnml-compressed-files-size-threshold): New variable.
+       (nnml-save-mail): Use it.
+
        * gnus-uu.el (gnus-uu-mark-series): Return number of marked
-       articles.  New argument `silent'.
+       articles.  Add new argument `silent'.
        (gnus-uu-mark-all): Report the total number of marked articles.
 
 2005-09-10  Romain Francoise  <romain@orebokech.com>

diff --git a/lisp/nnml.el b/lisp/nnml.el
index eeb4cdf..90a29c3 100644 (file)
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -85,6 +85,12 @@ marks file will be regenerated properly by Gnus.")
 (defvoo nnml-use-compressed-files nil
   "If non-nil, allow using compressed message files.")
 
+(defvoo nnml-compressed-files-size-threshold 1000
+  "Default size threshold for compressed message files.
+Message files with bodies larger than that many characters will
+be automatically compressed if `nnml-use-compressed-files' is
+non-nil.")
+
 \f
 
 (defconst nnml-version "nnml 1.0"
@@ -622,7 +628,7 @@ marks file will be regenerated properly by Gnus.")
     (setq chars (nnmail-insert-lines))
     (setq extension
          (and nnml-use-compressed-files
-              (> chars 1000)
+             (> chars nnml-compressed-files-size-threshold)
               ".gz"))
     (nnmail-insert-xref group-art)
     (run-hooks 'nnmail-prepare-save-mail-hook)