Index: openacs-4/packages/ecommerce/tcl/qmail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/tcl/qmail-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/ecommerce/tcl/qmail-procs.tcl	20 Apr 2001 20:51:13 -0000	1.1
+++ openacs-4/packages/ecommerce/tcl/qmail-procs.tcl	18 Jul 2001 18:19:01 -0000	1.2
@@ -2,7 +2,7 @@
 # procedure for sending mail by directly injecting it into the qmail system.
 # -jsc 1999-01-15
 
-proc qmail {to from subject body {extraheaders {}}} {
+ad_proc qmail {to from subject body {extraheaders {}}} { sends message using qmail by direct injection } {
     set msg "To: $to\nFrom: $from\nSubject: $subject\nDate: [ns_httptime [ns_time]]"
     ## Insert extra headers, if any
     if ![string match "" $extraheaders] {
@@ -27,8 +27,8 @@
 }
 
 # Inject a fully formed message into qmail.
-proc qmail_send_complete_message {from msg} {
+ad_proc qmail_send_complete_message {from msg} { sends message using qmail } {
     set qmail_pipe [open "| /var/qmail/bin/qmail-inject -h -f$from" "w"]
     puts -nonewline $qmail_pipe $msg
     close $qmail_pipe
-}
\ No newline at end of file
+}