summaryrefslogtreecommitdiff
path: root/guimb/scm/sieve-core.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guimb/scm/sieve-core.scm')
-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.