[Mew-dist 08092] Mail folder in FAT file system

[Takuro Horikawa]

はじめまして、堀川です。


普段は、FreeBSDを使っているのですが、
訳有ってFAT領域に、Mail folderを置いています。

マルチパートのメールを作成しようとC-cC-aすると、
FAT file system は、chmod が出来ないため、失敗します。

で、失敗しないようにするpatchです。
# UNIXを使ってるくせに、FAT file systemにMail folderを置く人しか嬉しく
# ないでしょうが。

mew-config-set-modes()では、指定したdirectory/fileのmodeが異なる時のみ、
set-file-modesをしているので、それをまねただけです。

では。
----------------------------------------
堀川　拓郎　takuroho at example.com
-------------- next part --------------
diff -u -r /home/horikawa/tmp/mew-1.94b13.org/mew-attach.el ./mew-attach.el
--- /home/horikawa/tmp/mew-1.94b13.org/mew-attach.el	Mon Mar  1 23:05:38 1999
+++ ./mew-attach.el	Mon Mar 15 18:37:02 1999
@@ -376,8 +376,10 @@
 		      (file-name-nondirectory frompath)))
 	(setq efile (concat subdir tofile)))
       (funcall func frompath (expand-file-name efile mimedir))
-      (if setmode (set-file-modes (expand-file-name efile mimedir)
-				  mew-file-mode))
+      (if setmode 
+	  (if (/= mew-file-mode
+		  (mew-get-file-modes (expand-file-name efile mimedir)))
+	      (set-file-modes (expand-file-name efile mimedir) mew-file-mode)))
       ;; (cd (file-name-directory frompath)) ;; xxx
       (setq mew-encode-syntax
 	    (mew-syntax-insert-entry
diff -u -r /home/horikawa/tmp/mew-1.94b13.org/mew-func.el ./mew-func.el
--- /home/horikawa/tmp/mew-1.94b13.org/mew-func.el	Mon Mar  1 23:05:38 1999
+++ ./mew-func.el	Mon Mar 15 18:37:03 1999
@@ -417,7 +417,8 @@
     (if (and (file-exists-p path) (not (file-directory-p path)))
 	(delete-file path))
     (make-directory path)
-    (set-file-modes path mew-folder-mode)))
+    (if (/= mew-folder-mode (mew-get-file-modes path))
+	(set-file-modes path mew-folder-mode))))
 
 (defun mew-delete-directory-recursively (dir)
   (let ((files (directory-files dir t "^[^.]\\|^.[^.]")))