Index: openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql	7 Jun 2008 20:28:56 -0000	1.12
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs-oracle.xql	17 Jul 2008 18:00:17 -0000	1.13
@@ -10,36 +10,36 @@
                    creation_date,
                    locking_server,
                    to_addr,
-                   cc_addr,
-                   bcc_addr,
                    from_addr,
                    reply_to,
                    subject,
-                   body,
                    package_id,
                    file_ids,
                    mime_type,
                    no_callback_p,
-                   extraheaders,
-                   use_sender_p     
+                   use_sender_p,
+                   cc_addr,
+                   bcc_addr,
+                   body,
+                   extraheaders
                   )
             values
                   (acs_mail_lite_id_seq.nextval,
                    :creation_date,
                    :locking_server,
                    :to_addr,
-                   :cc_addr,
-                   :bcc_addr,
                    :from_addr,
                    :reply_to,
                    :subject,
-                   :body,
                    :package_id,
                    :file_ids,
                    :mime_type,
                    decode(:no_callback_p,'1','t','f'),
-                   :extraheaders,
-                   decode(:use_sender_p,'1','t','f')
+                   decode(:use_sender_p,'1','t','f'),
+                   :cc_addr,
+                   :bcc_addr,
+                   :body,
+                   :extraheaders
                   )
         </querytext>
     </fullquery>