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.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/guimb/scm/sieve-core.scm b/guimb/scm/sieve-core.scm
index 9ebf04b82..dbe9d5dbf 100644
--- a/guimb/scm/sieve-core.scm
+++ b/guimb/scm/sieve-core.scm
@@ -1,5 +1,5 @@
;;;; GNU Mailutils -- a suite of utilities for electronic mail
-;;;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
+;;;; Copyright (C) 1999, 2000, 2001, 2006 Free Software Foundation, Inc.
;;;;
;;;; GNU Mailutils is free software; you can redistribute it and/or modify
;;;; it under the terms of the GNU General Public License as published by
@@ -17,6 +17,9 @@
;;;; This module provides core functionality for the sieve scripts.
+(set! %load-path (append %load-path (list sieve-libdir)))
+(use-modules (mailutils))
+
;;; The email address for originator of error messages. Should be <>
;;; but current mailutils API is unable to parse and handle it.
;;; Site administrators are supposed to replace it with the
@@ -173,7 +176,7 @@
;; FIXME: This is very inefficient, but I have to use this
;; provided (string-index str (string-ref key 0)) may not
;; work...
- ((comp (make-shared-substring str index (+ index key-len))
+ ((comp (substring str index (+ index key-len))
key)
(xx #t))
(else
@@ -434,14 +437,11 @@
(define (sieve-main)
(cond
((not (guimb?))
-; (DEBUG 1 "Loading mailutils")
- (set! %load-path (append %load-path (list sieve-libdir)))
- (use-modules (mailutils))
(let* ((cl (sieve-command-line))
(name (if (and (not (null? (cdr cl)))
(string? (cadr cl)))
(cadr cl)
- (string-append mu-path-maildir "/"
+ (string-append (mu-mail-directory) "/"
(passwd:name (mu-getpwuid (getuid)))))))
; (DEBUG 2 "mailbox name " name)
(set! sieve-mailbox (mu-mailbox-open name "rw"))

Return to:

Send suggestions and report system problems to the System administrator.