diff options
-rw-r--r-- | demos/mailwasher.tcl | 7 |
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 } |