Parent Directory | Revision Log | Patch
revision 1.8 by gray, Thu May 16 11:17:59 2002 UTC | revision 1.9 by gray, Tue Aug 13 13:24:57 2002 UTC | |
---|---|---|
# | Line 65 | Line 65 |
65 | (define (sieve-expand-filename filename) | (define (sieve-expand-filename filename) |
66 | (case (string-ref filename 0) | (case (string-ref filename 0) |
67 | ((#\~) | ((#\~) |
68 | (let ((pw (mu_getpwuid (geteuid)))) | (let ((pw (mu-getpwuid (geteuid)))) |
69 | (if (and (vector? pw) | (if (and (vector? pw) |
70 | (let ((dir (vector-ref pw 5))) | (let ((dir (vector-ref pw 5))) |
71 | (and | (and |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |