From c21353cee88d349f1d5bf2540ebf795ed23c0d87 Mon Sep 17 00:00:00 2001 From: czkmt Date: Sat, 11 Dec 1999 17:44:28 +0000 Subject: [PATCH] (gnus-uu-grab-move): Simply copy FILE if `make-symbolic-link' is not availabe. --- lisp/gnus-uu.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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)) -- 1.7.10.4