mew-shimbun

[IMARUOKA Toshihide（伊丸岡俊秀） <imaru@xxxxxxxxxxxx>]

mew-distでの

From: Kazu Yamamoto (山本和彦) <kazu@iijlab.net>
Subject: [mew-dist 21240] Re: file permission for .mew-cache

> mew-file-mode はなくなり、mew-file-mode-mask を定義しました。デフォル
> トは、0660 です。親のディレクトリのモードに対しマスクします。

により，mew-shimbunが動かなくなっていました．
深く考えていないインチキパッチですが一応手元では動くようになりました．


--- ./mew-shimbun.el.old	2002-07-25 10:50:59.000000000 +0900
+++ mew-shimbun.el	2002-07-25 10:51:46.000000000 +0900
@@ -428,7 +428,7 @@
 		    (mew-frwlet
 		     mew-cs-dummy mew-cs-text-for-write
 		     (write-region (point-min) (point-max) file nil 'nomsg))
-		    (set-file-modes file mew-file-mode))))
+		    (set-file-modes file mew-file-mode-mask))))
 	      (setq dispcount (1+ dispcount))
 	      (mew-shimbun-mode-display group server count dispcount sum))))
       (kill-buffer buf)
@@ -598,7 +598,7 @@
 		      (mew-frwlet
 		       mew-cs-dummy mew-cs-text-for-write
 		       (write-region (point-min) (point-max) file nil 'nomsg))
-		      (set-file-modes file mew-file-mode)
+		      (set-file-modes file mew-file-mode-mask)
 		      (when (stringp oldmd5)
 			;; replace
 			(mew-shimbun-scan-replace fld msg))))))