Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl,v
diff -u -r1.47 -r1.48
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	21 May 2006 13:14:04 -0000	1.47
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	28 May 2006 07:14:51 -0000	1.48
@@ -1105,11 +1105,11 @@
 	# encode all attachments in base64
     
 	set tokens [list $message_token]
+	set item_ids [list]
 
 	if {[exists_and_not_null file_ids]} {
 
 	    # Check if we are dealing with revisions or items.
-	    set item_ids [list]
 	    foreach file_id $file_ids {
 		set item_id [content::revision::item_id -revision_id $file_id]
 		if {[string eq "" $item_id]} {