[uim-commit] r1652 - branches/0.4/scm

[tkng at freedesktop.org]

Author: tkng
Date: 2005-09-28 05:51:40 -0700 (Wed, 28 Sep 2005)
New Revision: 1652

Modified:
   branches/0.4/scm/custom-rt.scm
Log:
* scm/custom-rt.scm:
  -(require-custom): Don't load user configration file if worked under 
  setuid/setgid application.



Modified: branches/0.4/scm/custom-rt.scm
===================================================================
--- branches/0.4/scm/custom-rt.scm	2005-09-28 12:45:16 UTC (rev 1651)
+++ branches/0.4/scm/custom-rt.scm	2005-09-28 12:51:40 UTC (rev 1652)
@@ -74,7 +74,8 @@
 		(cons filename custom-required-custom-files)))
       (let* ((post-groups (custom-list-primary-groups))
 	     (new-groups (list-tail post-groups (length pre-groups))))
-	(if (not (getenv "LIBUIM_VANILLA"))
+	(if (and (not (getenv "LIBUIM_VANILLA"))
+		 (not (is-set-ugid?)))
 	    (for-each custom-load-group-conf
 		      (reverse new-groups)))))))