ange-ftp with nnml 5.0.13

[craffert@sps.ml.com (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