From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12673 Path: main.gmane.org!not-for-mail From: "St. Suika Roberts" Newsgroups: gmane.emacs.gnus.general Subject: automagicly compressed nnml files Date: 24 Oct 1997 15:01:43 -0600 Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no X-Trace: main.gmane.org 1035152168 5083 80.91.224.250 (20 Oct 2002 22:16:08 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:16:08 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.7/8.8.7) with ESMTP id QAA10263 for ; Fri, 24 Oct 1997 16:14:30 -0700 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with ESMTP id SAA19608 for ; Fri, 24 Oct 1997 18:16:06 -0500 (CDT) Original-Received: from tvi.cc.nm.us (kitty@ppp-093.unm.edu [129.24.14.93]) by ifi.uio.no (8.8.7/8.8.7/ifi0.2) with ESMTP id AAA17750 for ; Sat, 25 Oct 1997 00:01:32 +0200 (MET DST) Original-Received: (from kitty@localhost) by tvi.cc.nm.us (8.8.0/8.8.0) id RAA13400; Fri, 24 Oct 1997 17:07:21 -0500 Original-To: ding@ifi.uio.no X-Mailer: Quassia Gnus v0.12/Emacs 20.2 Original-Xref: misa.genom.com queue:1 Original-Lines: 67 Xref: main.gmane.org gmane.emacs.gnus.general:12673 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12673 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 Suika no homepage ------------------------------ 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