ange-ftp with nnml 5.0.13

ange-ftp with nnml 5.0.13

[Colin Rafferty]

".gnus" == My .gnus file says:

.gnus> (if (equal (system-name) "spssunp")
.gnus>     (setq nnml-directory "/export/tmp/craffert/Mail/")
.gnus>    (setq nnml-directory "/spssunp:/export/tmp/craffert/Mail/"))

.gnus> (setq nnmail-tmp-directory "/data/work/craffert/tmp/")

/spssunp:/export is not actually exported, and I want all my mail to be
on my local disk so that when the public partitions get full, I don't
lose mail when my itimer does a `2 g'.

This works great!  Gnus is the greatest.

My problem is in `nnml-save-mail'.  When I see cross-posts, the second
and subsequent newsgroups get added with `add-name-to-file'.  The
relevant code is below.

"nnml.el" == nnml.el 5.0.13 says:

nnml.el>  (if first
nnml.el>      ;; It was already saved, so we just make a hard link.
nnml.el>      (add-name-to-file first file t)
nnml.el>    ;; Save the article.
nnml.el>    (write-region (point-min) (point-max) file nil 
nnml.el>                  (if gnus-verbose-backends nil 'nomesg))
nnml.el>    (setq first file)))

Is this something that I should have ange-ftp fix (overload
`add-name-to-file'), or should I bag and add a variable called
`gnus-nnml-use-hard-links' that I set to nil when I am not on my local
machine?

Thanks for the help.
-- 
Colin Rafferty     | Merrill Lynch             | Voice:  212.449.8782
Consultant         | World Financial Center    | E-Mail: craffert@ml.com
Securities Pricing | North Tower, 11 Floor     | Beeper: 1.800.225.0256 #360229
Debt Markets Group | New York, New York  10281 | Fax:    212.449.1314

Re: ange-ftp with nnml 5.0.13

[Lars Magne Ingebrigtsen]

craffert@sps.ml.com (Colin Rafferty) writes:

> My problem is in `nnml-save-mail'.  When I see cross-posts, the second
> and subsequent newsgroups get added with `add-name-to-file'.  The
> relevant code is below.

This is how that code looks in September:

	  (if first
	      ;; It was already saved, so we just make a hard link.
	      (funcall nnmail-crosspost-link-function first file t)

And that variable is defined as:

nnmail-crosspost-link-function's value is add-name-to-file
Documentation:
Function called to create a copy of a file.
This is `add-name-to-file' by default, which means that crossposts
will use hard links.  If your file system doesn't allow hard
links, you could set this variable to `copy-file' instead.

You could just copy the September nnml snippet over to the Gnus 5.0.13
nnml and set the variable to `copy-file' when you're not on your local
machine.

-- 
Home is where the cat is.