[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 メーリングリストの案内