summaryrefslogtreecommitdiff
path: root/guimb
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-08-29 14:43:49 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-08-29 14:43:49 +0000
commit2c58138c223be155f51f6771dc4d2be951146df8 (patch)
tree3b76e463753230bc5628d5edd92d524723d9ba4d /guimb
parent15d71b00980bc84310fb443047f20799ac8bbbac (diff)
downloadmailutils-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.scm13
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))))

Return to:

Send suggestions and report system problems to the System administrator.