Index: openacs.org-dev/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs.org-dev/packages/notifications/tcl/notification-email-procs.tcl	31 Oct 2002 10:52:18 -0000	1.2
+++ openacs.org-dev/packages/notifications/tcl/notification-email-procs.tcl	12 Feb 2003 00:32:10 -0000	1.3
@@ -86,11 +86,23 @@
 
        append content "\n\nGetting too much email? Manage your notifications at: [manage_notifications_url]"
 
+        # Get the email address of the owner of the object.
+        set from_user_id [db_string get_creation_user {}]
+	if {[db_0or1row get_person {}]} {
+	    set from_email "\"$first_names $last_name\" <[cc_email_from_party $from_user_id]>"
+	} else {
+	    set from_email [reply_address -object_id $reply_object_id -type_id $notification_type_id]
+	}
+
+        # Set the reply to address to the address of the mailer.
+        set extra_headers [ns_set new]
+        ns_set put $extra_headers Reply-To [reply_address -object_id $reply_object_id -type_id $notification_type_id]
+
         acs_mail_lite::send \
             -to_addr $email \
             -from_addr [reply_address -object_id $reply_object_id -type_id $notification_type_id] \
             -subject $subject \
-            -body $content
+            -body $content 
     }
 
     ad_proc -private load_qmail_mail_queue {