From 2c58138c223be155f51f6771dc4d2be951146df8 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Thu, 29 Aug 2002 14:43:49 +0000
Subject: (sieve-expand-filename): Do not attempt to expand meta-characters
 understood by mailbox_create_default.

---
 guimb/scm/sieve-core.scm | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

(limited to 'guimb')

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))))
-- 
cgit v1.2.1