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.78.2.1 -r1.78.2.2
--- openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	8 Apr 2008 15:24:55 -0000	1.78.2.1
+++ openacs-4/packages/acs-mail-lite/tcl/acs-mail-lite-procs.tcl	9 Apr 2008 20:20:04 -0000	1.78.2.2
@@ -149,22 +149,10 @@
         
         set cmd_string "smtp::sendmessage $multi_token"     
         foreach header $headers {
-	    if {[lindex $header 1] ne ""} {
-		append cmd_string " -header {$header}"
-	    }
+            append cmd_string " -header {$header}"
         }
-
-        append cmd_string " -servers $smtp -ports $smtpport"
-
-	if {$smtpuser ne ""} {
-	    append cmd_string "-username $smtpuser"
-	}
-
-	if {$smtppassword ne ""} {
-	    append cmd_string "-password $smtppassword"
-	}
-
-        ns_log Notice "send cmd_string: $cmd_string"
+        append cmd_string " -servers $smtp -ports $smtpport -username $smtpuser -password $smtppassword"
+        ns_log Debug "send cmd_string: $cmd_string"
         eval $cmd_string
     }