diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-10 12:05:39 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-09-10 12:05:39 +0000 |
commit | de5a384088281b02ed827f8bf2ff4dcba7b81b2d (patch) | |
tree | 323ea56b5fa515a21eac5a665a42dc90298e72f9 /guimb | |
parent | 19be4447de8711a0480455d2bd5f902813b4db10 (diff) | |
download | mailutils-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.in | 6 |
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))) |