diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-04 14:38:29 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-08-04 14:38:29 +0000 |
commit | 8ace53a78d422c0660d9cf944e5c863d9c0c0c23 (patch) | |
tree | 6b37b730de8acc590404a24466e0e6f75e5aad7d /guimb/scm | |
parent | 5d08ab372a36030d239ff5aeb2729ec49bfd2e21 (diff) | |
download | mailutils-8ace53a78d422c0660d9cf944e5c863d9c0c0c23.tar.gz mailutils-8ace53a78d422c0660d9cf944e5c863d9c0c0c23.tar.bz2 |
Add final #t to the generated code to allow for empty sieve scripts
Diffstat (limited to 'guimb/scm')
-rw-r--r-- | guimb/scm/sieve.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guimb/scm/sieve.scm b/guimb/scm/sieve.scm index 3fc2377b0..f20436964 100644 --- a/guimb/scm/sieve.scm +++ b/guimb/scm/sieve.scm @@ -805,7 +805,7 @@ (define (sieve-code-finish) (if (not (null? sieve-exp)) - (set! sieve-code-list (append sieve-code-list sieve-exp)))) + (set! sieve-code-list (append sieve-code-list sieve-exp (list #t))))) ;;; Print the program |