Index: openacs-4/packages/mail-tracking/lib/messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/lib/messages.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/mail-tracking/lib/messages.tcl	19 Dec 2005 23:03:57 -0000	1.25
+++ openacs-4/packages/mail-tracking/lib/messages.tcl	17 Mar 2006 10:06:45 -0000	1.26
@@ -245,6 +245,26 @@
     }
 
 
+    set count 0
+    while {[regexp {^(.*?)\t?=\?[^\?]+\?Q\?(.*?)\?=\n?(.*?)$} $subject match before quoted after] && $count < 5} {
+	incr count
+	set result ""
+	for { set i 0 } { $i < [string length $quoted] } { incr i } {
+	    set current [string index $quoted $i]
+	    if {$current == "="} {
+		incr i
+		set high [string index $quoted $i]
+		incr i
+		set low [string index $quoted $i]
+		set current [binary format H2 "$high$low"]
+	    } elseif {[string eq $current "_"]} {
+		set current " "
+	    }
+	    append result $current
+	}
+	set subject "$before$result$after"
+    }
+
     set files [list]
     # We get the related files for all the object_types
     set content_types [list content_revision content_item file_storage_object image]