Parent Directory | Revision Log | Patch
revision 1.10 by gray, Thu Aug 29 14:43:49 2002 UTC | revision 1.11 by gray, Sun Sep 1 21:59:46 2002 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | ||
65 | (define (sieve-expand-filename filename) | (define (sieve-expand-filename filename) |
66 | (case (string-ref filename 0) | (case (string-ref filename 0) |
67 | ((#\/ #% #~ #+ #=) | ((#\/ #\% #\~ #\+ #\=) |
68 | filename) | filename) |
69 | (else | (else |
70 | (let ((pw (getpwuid (geteuid)))) | (let ((pw (getpwuid (geteuid)))) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |