nnfolder and version-control

nnfolder and version-control

[Henrik Enberg]

I recently switched to a nnfolder backend for some archive groups, and
now I notice that I have lotsa foo.~n~ files that are quite large. Rmail
sets version-control to 'never, maybe gnus should do the same for such
files.

Re: nnfolder and version-control

[Lars Magne Ingebrigtsen]

Henrik Enberg <henrik.enberg@telia.com> writes:

> I recently switched to a nnfolder backend for some archive groups, and
> now I notice that I have lotsa foo.~n~ files that are quite large. Rmail
> sets version-control to 'never, maybe gnus should do the same for such
> files.

Hm...  good point.

Any opinions?

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: nnfolder and version-control

[Reiner Steib]

On Fri, Apr 14 2006, Lars Magne Ingebrigtsen wrote:

> Henrik Enberg <henrik.enberg@telia.com> writes:
>
>> I recently switched to a nnfolder backend for some archive groups, and
>> now I notice that I have lotsa foo.~n~ files that are quite large. Rmail
>> sets version-control to 'never, maybe gnus should do the same for such
>> files.
>
> Hm...  good point.

Henrik, could you try the following patch and report back?

--8<---------------cut here---------------start------------->8---
--- nnheader.el	08 Feb 2006 13:32:50 +0100	7.20
+++ nnheader.el	15 May 2006 17:53:24 +0200	
@@ -980,6 +980,7 @@
 	 (after-insert-file-functions nil)
 	 (enable-local-eval nil)
 	 (coding-system-for-read nnheader-file-coding-system)
+	 (version-control 'never)
 	 (ffh (if (boundp 'find-file-hook)
 		  'find-file-hook
 		'find-file-hooks))
--8<---------------cut here---------------end--------------->8---

> Any opinions?

If we disable `version-control' for nnfolder, we should probably do
the same for nnmbox and nnbabyl, so I'd bind it in
`nnheader-find-file-noselect'.  I'm not sure about all occurrences of
`nnheader-find-file-noselect', though:

--8<---------------cut here---------------start------------->8---
-*- mode: grep; default-directory: "~/src/links/plain_No/lisp/" -*-
Grep started at Mon May 15 17:49:51

grep -nH -e nnheader-find-file-noselect *.el
gnus-soup.el:220:  (let* ((msg-buf (nnheader-find-file-noselect
gnus-soup.el:224:		    (nnheader-find-file-noselect
gnus-soup.el:378:	(set-buffer (nnheader-find-file-noselect file 'force))
gnus-soup.el:401:      (set-buffer (nnheader-find-file-noselect file))
gnus-soup.el:516:			     (nnheader-find-file-noselect msg-file)))
gnus-start.el:593:    (set-buffer (nnheader-find-file-noselect gnus-current-startup-file))
gnus-start.el:2262:	  (set-buffer (nnheader-find-file-noselect newsrc-file))
nnbabyl.el:586:			  (nnheader-find-file-noselect
nnfolder.el:877:		    (nnheader-find-file-noselect file t)))))
nnheader.el:973:(defun nnheader-find-file-noselect (&rest args)
nnmbox.el:625:			    (nnheader-find-file-noselect

Grep finished (matches found) at Mon May 15 17:49:51
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/

Re: nnfolder and version-control

[Reiner Steib]

On Mon, May 15 2006, Reiner Steib wrote:

> On Fri, Apr 14 2006, Lars Magne Ingebrigtsen wrote:
>
>> Henrik Enberg <henrik.enberg@telia.com> writes:
>>
>>> I recently switched to a nnfolder backend for some archive groups, and
>>> now I notice that I have lotsa foo.~n~ files that are quite large. Rmail
>>> sets version-control to 'never, maybe gnus should do the same for such
>>> files.
>>
>> Hm...  good point.
>
> Henrik, could you try the following patch and report back?

I didn't see a reply from Henrik, so I cc-ed him now.

> --8<---------------cut here---------------start------------->8---
> --- nnheader.el	08 Feb 2006 13:32:50 +0100	7.20
> +++ nnheader.el	15 May 2006 17:53:24 +0200	
> @@ -980,6 +980,7 @@
>  	 (after-insert-file-functions nil)
>  	 (enable-local-eval nil)
>  	 (coding-system-for-read nnheader-file-coding-system)
> +	 (version-control 'never)
>  	 (ffh (if (boundp 'find-file-hook)
>  		  'find-file-hook
>  		'find-file-hooks))
> --8<---------------cut here---------------end--------------->8---

I have installed this patch now (trunk).

>> Any opinions?
>
> If we disable `version-control' for nnfolder, we should probably do
> the same for nnmbox and nnbabyl, so I'd bind it in
> `nnheader-find-file-noselect'.  I'm not sure about all occurrences of
> `nnheader-find-file-noselect', though:
>
> --8<---------------cut here---------------start------------->8---
> -*- mode: grep; default-directory: "~/src/links/plain_No/lisp/" -*-
> Grep started at Mon May 15 17:49:51
>
> grep -nH -e nnheader-find-file-noselect *.el
> gnus-soup.el:220:  (let* ((msg-buf (nnheader-find-file-noselect
> gnus-soup.el:224:		    (nnheader-find-file-noselect
> gnus-soup.el:378:	(set-buffer (nnheader-find-file-noselect file 'force))
> gnus-soup.el:401:      (set-buffer (nnheader-find-file-noselect file))
> gnus-soup.el:516:			     (nnheader-find-file-noselect msg-file)))
> gnus-start.el:593:    (set-buffer (nnheader-find-file-noselect gnus-current-startup-file))
> gnus-start.el:2262:	  (set-buffer (nnheader-find-file-noselect newsrc-file))
> nnbabyl.el:586:			  (nnheader-find-file-noselect
> nnfolder.el:877:		    (nnheader-find-file-noselect file t)))))
> nnheader.el:973:(defun nnheader-find-file-noselect (&rest args)
> nnmbox.el:625:			    (nnheader-find-file-noselect
>
> Grep finished (matches found) at Mon May 15 17:49:51
> --8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/