From: yamaoka Date: Sun, 18 Dec 2005 22:11:05 +0000 (+0000) Subject: Synch to No Gnus 200512181440. X-Git-Tag: t-gnus-6_17_4-quimby-~171 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e63d09a50888757e27a75f8c9459ad05a14c62ca;p=elisp%2Fgnus.git- Synch to No Gnus 200512181440. --- 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)