Mercurial > hg > xemacs-beta

diff lisp/gnus/nnmail.el @ 34:d620409f5eb8 r19-15b100

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b100
author cvs
date Mon, 13 Aug 2007 08:53:20 +0200
parents e04119814345
children 1a767b41a199
line wrap: on
line diff
--- a/lisp/gnus/nnmail.el	Mon Aug 13 08:52:58 2007 +0200
+++ b/lisp/gnus/nnmail.el	Mon Aug 13 08:53:20 2007 +0200
@@ -207,7 +207,10 @@
   :group 'nnmail-files
   :type 'function)
 
-(defcustom nnmail-crosspost-link-function 'add-name-to-file
+(defcustom nnmail-crosspost-link-function
+  (if (string-match "windows-nt\\|emx" (format "%s" system-type))
+      'copy-file
+    'add-name-to-file)
   "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