diff options
Diffstat (limited to 'lisp/server.el')
| -rw-r--r-- | lisp/server.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index 019a16a43d7..ce14f133f0a 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -486,7 +486,13 @@ See variable `server-auth-dir' for details." | |||
| 486 | (file-name-as-directory dir)) | 486 | (file-name-as-directory dir)) |
| 487 | :warning) | 487 | :warning) |
| 488 | (throw :safe t)) | 488 | (throw :safe t)) |
| 489 | (unless (eql uid (user-uid)) ; is the dir ours? | 489 | (unless (or (= uid (user-uid)) ; is the dir ours? |
| 490 | (and w32 | ||
| 491 | ;; Files created on Windows by | ||
| 492 | ;; Administrator (RID=500) have | ||
| 493 | ;; the Administrators (RID=544) | ||
| 494 | ;; group recorded as the owner. | ||
| 495 | (= uid 544) (= (user-uid) 500))) | ||
| 490 | (throw :safe nil)) | 496 | (throw :safe nil)) |
| 491 | (when w32 ; on NTFS? | 497 | (when w32 ; on NTFS? |
| 492 | (throw :safe t)) | 498 | (throw :safe t)) |