diff options
Diffstat (limited to 'guimb')
-rw-r--r-- | guimb/scm/sieve-core.scm | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/guimb/scm/sieve-core.scm b/guimb/scm/sieve-core.scm index ad3659e83..1a0dc7829 100644 --- a/guimb/scm/sieve-core.scm +++ b/guimb/scm/sieve-core.scm @@ -64,18 +64,7 @@ (define (sieve-expand-filename filename) (case (string-ref filename 0) - ((#\~) - (let ((pw (mu-getpwuid (geteuid)))) - (if (and (vector? pw) - (let ((dir (vector-ref pw 5))) - (and - (access? dir W_OK) - (eq? (vector-ref (stat (vector-ref pw 5)) 13) 'directory)))) - (string-append (vector-ref pw 5) - (substring filename - 1 (string-length filename))) - #f))) - ((#\/) + ((#\/ #% #~ #+ #=) filename) (else (let ((pw (getpwuid (geteuid)))) |