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 {
Index: openacs.org-dev/packages/notifications/tcl/notification-email-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/notifications/tcl/notification-email-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/notifications/tcl/notification-email-procs.xql	12 Feb 2003 00:32:10 -0000	1.1
@@ -0,0 +1,20 @@
+<?xml version="1.0"?>
+<queryset>
+
+  <fullquery name="notification::email::send.get_creation_user">
+    <querytext>
+       select creation_user
+       from acs_objects
+       where object_id = :reply_object_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="notification::email::send.get_person">
+    <querytext>
+       select first_names, last_name
+       from persons 
+       where person_id = :from_user_id
+    </querytext>
+  </fullquery>
+
+</queryset>