- V4.0.3.0.0:

  Updated to OpenACS 5.7

acs-mail-lite.info

@@ -9,19 +9,19 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>t</inherit-templates-p>
     
-    <version name="5.6.0" url="http://openacs.org/repository/download/apm/acs-mail-lite-5.6.0.apm">
+    <version name="5.7.0" url="http://openacs.org/repository/download/apm/acs-mail-lite-5.7.0.apm">
         <owner url="mailto:malte.sussdorff@cognovis.de">Malte Sussdorff</owner>
         <owner url="mailto:timo@studio-k4.de">Timo Hentschel</owner>
         <summary>Simplified reliable email transmission with bounce management.</summary>
-        <release-date>2010-06-17</release-date>
+        <release-date>2011-06-12</release-date>
         <vendor url="http://www.openacs.org">OpenACS</vendor>
         <description format="text/html">This package provides a service for sending messages, queueing messages in the database to ensure reliable sending and make sending a message 'transactional'. Replacement for acs-mail.</description>
         <maturity>2</maturity>
 
-        <provides url="acs-mail-lite" version="5.6.0"/>
-        <requires url="acs-kernel" version="5.6.0"/>
-        <requires url="acs-service-contract" version="5.6.0"/>
-        <requires url="acs-tcl" version="5.6.0"/>
+        <provides url="acs-mail-lite" version="5.7.0"/>
+        <requires url="acs-kernel" version="5.7.0"/>
+        <requires url="acs-service-contract" version="5.7.0"/>
+        <requires url="acs-tcl" version="5.7.0"/>
 
         <callbacks>
             <callback type="after-upgrade"  proc="acs_mail_lite::after_upgrade"/>

tcl/acs-mail-lite-procs.tcl

@@ -407,7 +407,7 @@ namespace eval acs_mail_lite {
         set message_date [acs_mail_lite::utils::build_date]
 
         # Build the message body
-        set tokens [acs_mail_lite::utils::build_body -mime_type $mime_type $body]
+        set tokens [acs_mail_lite::utils::build_body -mime_type $mime_type -- $body]
 
         # Add attachments if any
         if {[exists_and_not_null file_ids]} {
@@ -441,8 +441,8 @@ namespace eval acs_mail_lite {
 
         # Set the subject
         if { $subject ne "" } {
-            set subject [acs_mail_lite::utils::build_subject $subject]
-            mime::setheader $tokens Subject $subject
+            set encoded_subject [acs_mail_lite::utils::build_subject $subject]
+            mime::setheader $tokens Subject $encoded_subject
         }
 
         # Add extra headers