From e63d09a50888757e27a75f8c9459ad05a14c62ca Mon Sep 17 00:00:00 2001 From: yamaoka Date: Sun, 18 Dec 2005 22:11:05 +0000 Subject: [PATCH] Synch to No Gnus 200512181440. --- lisp/ChangeLog | 6 ++++++ lisp/nnml.el | 15 +++++++++++---- 2 files changed, 17 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47b21dd..05b29c7 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 ee64cb8..223a70a 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -39,11 +39,11 @@ (require 'gnus) (require 'nnheader) (require 'nnmail) -(require 'gnus-bcklg) (require 'nnoo) (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) @@ -86,7 +86,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. @@ -632,7 +637,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) -- 1.7.10.4