summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--demos/mailwasher.tcl7
1 files changed, 3 insertions, 4 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl
index a6bafd1..f87e97c 100644
--- a/demos/mailwasher.tcl
+++ b/demos/mailwasher.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: mailwasher.tcl,v 1.14 2006/10/28 01:26:37 treectrl Exp $
+# RCS: @(#) $Id: mailwasher.tcl,v 1.15 2006/11/19 00:54:45 treectrl Exp $
#
# Demo: MailWasher
@@ -181,10 +181,9 @@ proc DemoMailWasher {} {
if {$id eq ""} {
} elseif {[lindex $id 0] eq "header"} {
} else {
- foreach {what item where arg1 arg2 arg3} $id {}
+ lassign $id what item where arg1 arg2 arg3
if {$where eq "column"} {
- set tag [%W column cget $arg1 -tags]
- if {$tag eq "delete" || $tag eq "bounce"} {
+ if {[%W column tag expr $arg1 {delete || bounce}]} {
%W item state forcolumn $item $arg1 ~CHECK
# return -code break
}