summaryrefslogtreecommitdiff
path: root/guimb
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-09-10 12:05:39 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-09-10 12:05:39 +0000
commitde5a384088281b02ed827f8bf2ff4dcba7b81b2d (patch)
tree323ea56b5fa515a21eac5a665a42dc90298e72f9 /guimb
parent19be4447de8711a0480455d2bd5f902813b4db10 (diff)
downloadmailutils-de5a384088281b02ed827f8bf2ff4dcba7b81b2d.tar.gz
mailutils-de5a384088281b02ed827f8bf2ff4dcba7b81b2d.tar.bz2
string->obarray-symbol is deprecated in guile 1.6.0. Use another approach.
Diffstat (limited to 'guimb')
-rw-r--r--guimb/scm/sieve.scm.in6
1 files changed, 5 insertions, 1 deletions
diff --git a/guimb/scm/sieve.scm.in b/guimb/scm/sieve.scm.in
index edbba129f..45c82efd3 100644
--- a/guimb/scm/sieve.scm.in
+++ b/guimb/scm/sieve.scm.in
@@ -949,7 +949,11 @@
(newline)
(sieve-usage)))
-(define guimb? (string->obarray-symbol #f "mu-mailbox-open" #t))
+(define guimb? (catch #t
+ (lambda ()
+ (let ((package mu-package))
+ package))
+ (lambda args #f)))
(if (and guimb? (string? user-name))
(set! filename (sieve-expand-filename filename)))

Return to:

Send suggestions and report system problems to the System administrator.