Skip to content

John McEleney / mailutils

Go to a project
Toggle navigation
Toggle navigation pinning
Commit 2c58138c 2c58138c223be155f51f6771dc4d2be951146df8 by Sergey Poznyakoff
Options

(sieve-expand-filename): Do not attempt to expand meta-characters understood by … 

…mailbox_create_default.
1 parent 15d71b00
Inline Side-by-side
Showing 1 changed file with 1 additions and 12 deletions
...@@ -64,18 +64,7 @@ ...@@ -64,18 +64,7 @@
64 64
65 (define (sieve-expand-filename filename) 65 (define (sieve-expand-filename filename)
66 (case (string-ref filename 0) 66 (case (string-ref filename 0)
67 ((#\~) 67 ((#\/ #% #~ #+ #=)
68 (let ((pw (mu-getpwuid (geteuid))))
69 (if (and (vector? pw)
70 (let ((dir (vector-ref pw 5)))
71 (and
72 (access? dir W_OK)
73 (eq? (vector-ref (stat (vector-ref pw 5)) 13) 'directory))))
74 (string-append (vector-ref pw 5)
75 (substring filename
76 1 (string-length filename)))
77 #f)))
78 ((#\/)
79 filename) 68 filename)
80 (else 69 (else
81 (let ((pw (getpwuid (geteuid)))) 70 (let ((pw (getpwuid (geteuid))))
......