automagicly compressed nnml files

["St. Suika Roberts" <wroberts@tvi.cc.nm.us>]

I've been using this for a while now, and I haven't lost any mail
since I finished coding it, so I thought I'd mail it in.

It adds one variable, nnmail-article-file-suffix, which is appended to
the nnml-generated filename.  If one has autocompression working, this
will automagicly (de)compress one's mail, if one sets it to ".gz"

Thanks,
	Suika  (I had to diff off of rgnus, so I ended up lopping out
	several other changes.  I hope these patches still work.)
-- 
                      wroberts@tvi.cc.nm.us
Whenever people agree with me I always feel I must be wrong.
                                                                 --Oscar Wilde
   <a href="http://studentweb.tulane.edu/~wrobert2/">Suika no homepage</a>
------------------------------ cut here ------------------------------
--- rgnus/lisp/nnml.el	Mon Aug 25 18:08:22 1997
+++ qgnus/lisp/nnml.el	Tue Oct  7 17:18:54 1997
@@ -342,7 +354,7 @@
     (set-buffer buffer)
     (nnml-possibly-create-directory group)
     (let ((chars (nnmail-insert-lines))
-	  (art (concat (int-to-string article) "\t"))
+	  (art (concat (int-to-string article) nnmail-article-file-suffix "\t"))
 	  headers)
       (when (condition-case ()
 		(progn
@@ -350,7 +362,7 @@
 		   (point-min) (point-max)
 		   (or (nnml-article-to-file article)
 		       (concat nnml-current-directory
-			       (int-to-string article)))
+			       (int-to-string article) nnmail-article-file-suffix))
 		   nil (if (nnheader-be-verbose 5) nil 'nomesg))
 		  t)
 	      (error nil))
@@ -583,7 +600,8 @@
 	(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))
+			    nnmail-article-file-suffix)))
 	  (if first
 	      ;; It was already saved, so we just make a hard link.
 	      (funcall nnmail-crosspost-link-function first file t)
@@ -627,7 +645,7 @@
     (setcdr active (1+ (cdr active)))
     (while (file-exists-p
 	    (concat (nnmail-group-pathname group nnml-directory)
-		    (int-to-string (cdr active))))
+		    (int-to-string (cdr active)) nnmail-article-file-suffix))
       (setcdr active (1+ (cdr active))))
     (cdr active)))
 
--- rgnus/lisp/nnmail.el	Sat Aug  9 12:46:23 1997
+++ qgnus/lisp/nnmail.el	Wed Oct  8 17:27:15 1997
@@ -180,6 +181,9 @@
   :group 'nnmail-files
   :type 'file)
 
+(defvar nnmail-article-file-suffix nil
+  "suffix to add to single message per file files")
+
 (defcustom nnmail-crash-box "~/.gnus-crash-box"
   "File where Gnus will store mail while processing it."
   :group 'nnmail-files