(gnus-set-file-modes): Just ignore errors.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 03aa692..ea63341 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-05-23  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-util.el (gnus-set-file-modes): Just ignore errors. 
+
 2004-05-23  Paul Stodghill  <stodghil@cs.cornell.edu>
 
        * gnus-util.el (gnus-set-file-modes): New function.  (small

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 4756f5e..d9bfc18 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -1473,10 +1473,9 @@ empty directories from OLD-PATH."
                          (concat old-dir "..")))))))))
 
 (defun gnus-set-file-modes (filename mode)
-  "Wrapper for set-file-modes.
-No-op if `gnus-set-file-modes' is set to nil."
-  (if gnus-set-file-modes
-      (set-file-modes filename mode)))
+  "Wrapper for set-file-modes."
+  (ignore-errors
+    (set-file-modes filename mode)))
 
 (provide 'gnus-util)