From 4b9ab0fc4298e115b98f4a3398b27e7cb47fc574 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Sun, 11 Sep 2005 13:40:38 +0000 Subject: [PATCH] (nnml-compressed-files-size-threshold): New variable. (nnml-save-mail): Use it. --- lisp/ChangeLog | 5 ++++- lisp/nnml.el | 8 +++++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54cdcf046..64c916fb1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,7 +1,10 @@ 2005-09-11 Romain Francoise + * 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 diff --git a/lisp/nnml.el b/lisp/nnml.el index eeb4cdfbc..90a29c39d 100644 --- 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.") + (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) -- 2.25.1