summaryrefslogtreecommitdiff
path: root/guimb/scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2001-08-04 14:38:29 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2001-08-04 14:38:29 +0000
commit8ace53a78d422c0660d9cf944e5c863d9c0c0c23 (patch)
tree6b37b730de8acc590404a24466e0e6f75e5aad7d /guimb/scm
parent5d08ab372a36030d239ff5aeb2729ec49bfd2e21 (diff)
downloadmailutils-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.scm2
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

Return to:

Send suggestions and report system problems to the System administrator.