From: czkmt <czkmt>
Date: Sat, 11 Dec 1999 17:44:28 +0000 (+0000)
Subject: (gnus-uu-grab-move): Simply copy FILE if `make-symbolic-link' is not
X-Git-Tag: t-gnus-6_14_0-11~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c21353cee88d349f1d5bf2540ebf795ed23c0d87;p=elisp%2Fgnus.git-

(gnus-uu-grab-move): Simply copy FILE if `make-symbolic-link' is not
availabe.
---

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 5e7f9a9..aa2e95f 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1351,9 +1351,12 @@ didn't work, and overwrite existing files.  Otherwise, ask each time."
   (when gnus-uu-default-dir
     (let ((to-file (concat (file-name-as-directory gnus-uu-default-dir)
 			   (file-name-nondirectory file))))
-      (rename-file file to-file)
-      (unless (file-exists-p file)
-	(make-symbolic-link to-file file)))))
+      (cond ((fboundp 'make-symbolic-link)
+	     (rename-file file to-file)
+	     (unless (file-exists-p file)
+	       (make-symbolic-link to-file file)))
+	    (t
+	     (copy-file file to-file))))))
 
 (defun gnus-uu-part-number (article)
   (let* ((header (gnus-summary-article-header article))