Frames (Re: Wanderlust newbie (from vm): two questions)

[Yuuichi Teranishi]

apel-ja に移動します。

>>>>> <m2ofrhs6ga.wl ＠ peter.peter> にて、
>>>>>  <turtle ＠ bu.edu> さんは書きました:
>
> I have one last minor issue about the installation process is that
> it might be worth ensuring that the files are installed group and
> world readable when doing a system wide installation.  (If you are
> doing `gmake install' using sudo they are installed with whatever
> permissions the installer's umask permits.)

install.el には、こんな定義↓があるので、

(defvar install-overwritten-file-modes (+ (* 64 6)(* 8 4) 4)) ; 0644

インストールしたファイルのモードを設定できるのかと思ったら、
どこからも参照されていないようです。
なにか理由があるのでしょうか？


--- install.el	2000/12/20 05:38:17	1.19
+++ install.el	2001/06/25 09:14:00
@@ -62,6 +62,7 @@
 	    (if (and (file-exists-p full-path) overwrite)
 		(delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (if move
 		(catch 'tag
 		  (while (and (file-exists-p src-file)
@@ -100,6 +101,7 @@
 	    (if (file-exists-p full-path)
 		(delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (princ (format "%s -> %s\n" el-file dest)))))
       (setq src-file (expand-file-name elc-file src))
       (if (not (file-exists-p src-file))
@@ -110,6 +112,7 @@
             (if (file-exists-p full-path)
                 (delete-file full-path))
 	    (copy-file src-file full-path t t)
+	    (set-file-modes full-path install-overwritten-file-modes)
 	    (catch 'tag
 	      (while (file-exists-p src-file)
 		(condition-case err

--
Yuuichi Teranishi (寺西裕一) <teranisi ＠ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"The love you take is equal to the love you make..."