diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-08-29 14:43:49 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-08-29 14:43:49 +0000 |
commit | 2c58138c223be155f51f6771dc4d2be951146df8 (patch) | |
tree | 3b76e463753230bc5628d5edd92d524723d9ba4d /guimb | |
parent | 15d71b00980bc84310fb443047f20799ac8bbbac (diff) | |
download | mailutils-2c58138c223be155f51f6771dc4d2be951146df8.tar.gz mailutils-2c58138c223be155f51f6771dc4d2be951146df8.tar.bz2 |
(sieve-expand-filename): Do not attempt to expand meta-characters understood by mailbox_create_default.
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)))) |