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.27 -r1.28
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	3 Aug 2005 06:10:29 -0000	1.27
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	4 Aug 2005 05:53:28 -0000	1.28
@@ -779,7 +779,11 @@
         return $message_id
     }
 
-    
+
+    # Only provide this procedure if you have tcllib installed (with
+    # the correct mime procs)
+    if {[package require base64] >= "2.3.1" && [package require mime] >= "1.4"} {
+
     ad_proc -public complex_send {
 	-send_immediately:boolean
 	-valid_email:boolean
@@ -819,7 +823,6 @@
 	
     } {
 
-
 	# Set the message token
 	set message_token [mime::initialize -canonical "$mime_type" -string "$body"]
 
@@ -868,7 +871,7 @@
 	    -object_id $object_id \
 	    -file_ids [split $file_ids ","]
     }
-	 
+}	 
     ad_proc -private sweeper {} {
         Send messages in the acs_mail_lite_queue table.
     } {