[mew-dist 22196] Re: De-capsulated messages's permission

Tatsuya Kinoshita tats at example.com
2002年 11月 6日 (水) 21:37:12 JST


On November 6, 2002, [mew-dist 22194],
Hiroshi Fujishima <pooh at example.com> wrote:

> Summary モードで B で格納されたメッセージを取り出すと、取り出されたメッ
> セージのパーミッションが 644 になります。(umask 022 で使っています)
> これを 600 にしたいのですが、可能でしょうか?

`B'(mew-summary-burst)でMew独自のパーミション処理が抜けていました。
パッチをどうぞ。(デフォルトで、フォルダが0700ならメッセージは0600 
になります)

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

--- mew.orig/mew-edit.el
+++ mew/mew-edit.el
@@ -451,7 +451,7 @@
       ret)))
 
 (defun mew-summary-burst-part (part folder newmsg &optional num)
-  (let (n len nums entry)
+  (let (n len nums entry file)
     (setq n 1)
     (cond
      (num
@@ -467,6 +467,7 @@
 	(setq newmsg (mew-summary-burst-part entry folder newmsg)))
        ((string= (mew-syntax-get-value (mew-syntax-get-ct entry) 'cap)
 		 mew-ct-msg)
+	(setq file (mew-expand-folder folder (int-to-string newmsg)))
 	(mew-frwlet
 	 mew-cs-dummy mew-cs-text-for-write
 	 (write-region
@@ -474,8 +475,8 @@
 	  ;; This is RFC 822 message.
 	  ;; So, body is a single text/plain.
 	  (mew-syntax-get-end (mew-syntax-get-part entry))
-	  (mew-expand-folder folder (int-to-string newmsg))
-	  nil 'no-msg))
+	  file nil 'no-msg))
+	(mew-set-file-modes file)
 	(setq newmsg (1+ newmsg))))
       (setq n (1+ n))
       (setq nums (list n)))


Mew-dist メーリングリストの案内