From b29471ed212c8b6a21171b2a70b05f2402759c25 Mon Sep 17 00:00:00 2001 From: Kai Grossjohann Date: Fri, 2 Jan 2004 17:50:29 +0000 Subject: [PATCH] (nnml-save-mail): Grok compressed articles. From Michael Albinus . --- lisp/ChangeLog | 5 +++++ lisp/nnml.el | 9 +++++++-- 2 files changed, 12 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e8b9e85de..7a2f121e9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-01-02 Kai Grossjohann + + * nnml.el (nnml-save-mail): Grok compressed articles. From + Michael Albinus . + 2004-01-02 Teodor Zlatanov * spam.el (spam-ham-copy-or-move-routine): use spam-list-articles diff --git a/lisp/nnml.el b/lisp/nnml.el index 0767962ae..0307fafbe 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -621,8 +621,12 @@ marks file will be regenerated properly by Gnus.") (defun nnml-save-mail (group-art) "Called narrowed to an article." - (let (chars headers) + (let (chars headers extension) (setq chars (nnmail-insert-lines)) + (setq extension + (and nnml-use-compressed-files + (> chars 1000) + ".gz")) (nnmail-insert-xref group-art) (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnml-prepare-save-mail-hook) @@ -637,7 +641,8 @@ marks file will be regenerated properly by Gnus.") (nnml-possibly-create-directory (caar ga)) (let ((file (concat (nnmail-group-pathname (caar ga) nnml-directory) - (int-to-string (cdar ga))))) + (int-to-string (cdar ga)) + extension))) (if first ;; It was already saved, so we just make a hard link. (funcall nnmail-crosspost-link-function first file t) -- 2.25.1