X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnnml.el;fp=lisp%2Fnnml.el;h=7b0ae9c98ff075c14852c639d98e9baaa665f506;hb=d7ba7616a9115179847f440eae631c3e9dd769e8;hp=9657e78b083b694519365f27c2a70cddb54d0f57;hpb=368c970b11fa709a8622f14c681bf42351b29542;p=elisp%2Fgnus.git-

diff --git a/lisp/nnml.el b/lisp/nnml.el
index 9657e78..7b0ae9c 100644
--- a/lisp/nnml.el
+++ b/lisp/nnml.el
@@ -628,8 +628,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)
@@ -644,7 +648,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)