From a0b696927fec67d337543fd0b90c9b0ffc655cf6 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Sun, 18 Dec 2005 14:40:50 +0000 Subject: [PATCH] Don't require gnus-bcklg. Autoload it. (nnml-use-compressed-files, nnml-save-mail): Support other comression programs such as bzip2. --- lisp/ChangeLog | 6 ++++++ lisp/nnml.el | 15 +++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 953bbf027..795ef529a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2005-12-18 Reiner Steib + + * nnml.el: Don't require gnus-bcklg. Autoload it. + (nnml-use-compressed-files, nnml-save-mail): Support other + comression programs such as bzip2. + 2005-12-17 Lars Magne Ingebrigtsen * dns.el (query-dns): Make sure we check the buffer size before diff --git a/lisp/nnml.el b/lisp/nnml.el index 43f9b8ff3..d30ae28fe 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -37,12 +37,12 @@ (require 'gnus) (require 'nnheader) (require 'nnmail) -(require 'gnus-bcklg) (require 'nnoo) (eval-when-compile (require 'cl)) (eval-and-compile - (autoload 'gnus-article-unpropagatable-p "gnus-sum")) + (autoload 'gnus-article-unpropagatable-p "gnus-sum") + (autoload 'gnus-backlog-remove-article "gnus-bcklg")) (nnoo-declare nnml) @@ -85,7 +85,12 @@ marks file will be regenerated properly by Gnus.") "If non-nil, inhibit expiry.") (defvoo nnml-use-compressed-files nil - "If non-nil, allow using compressed message files.") + "If non-nil, allow using compressed message files. + +If it is a string, use it as the file extension which specifies +the comression program. You can set it to \".bz2\" if your Emacs +supports auto-compression using the bzip2 program. A value of t +is equivalent to \".gz\".") (defvoo nnml-compressed-files-size-threshold 1000 "Default size threshold for compressed message files. @@ -631,7 +636,9 @@ non-nil.") (setq extension (and nnml-use-compressed-files (> chars nnml-compressed-files-size-threshold) - ".gz")) + (if (stringp nnml-use-compressed-files) + nnml-use-compressed-files + ".gz"))) (nnmail-insert-xref group-art) (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnml-prepare-save-mail-hook) -- 2.34.1