Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	10 Sep 2002 22:23:11 -0000	1.7
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	20 Sep 2002 21:19:00 -0000	1.8
@@ -25,6 +25,10 @@
         return [get_parameter -name "EmailDomain"]
     }
 
+    ad_proc -public manage_notifications_url {} {
+        return "[ad_url]/[apm_package_url_from_key [notification::package_key]]manage"
+    }
+
     ad_proc -public reply_address_prefix {} {
         return [get_parameter -name "EmailReplyAddressPrefix"]
     }
@@ -48,7 +52,7 @@
         if {[empty_string_p $object_id] || [empty_string_p $type_id]} {
             return [reply_address_prefix]
         } else {
-            return "[reply_address_prefix]-$object_id-$type_id@[address_domain]"
+            return "[address_domain] mailer <[reply_address_prefix]-$object_id-$type_id@[address_domain]>"
         }
     }
 
@@ -80,6 +84,8 @@
         # Get email
         set email [cc_email_from_party $to_user_id]
 
+       append content "\nGetting too much email? Manage your notifications at: [manage_notifications_url]"
+
         acs_mail_lite::send \
             -to_addr $email \
             -from_addr [reply_address -object_id $reply_object_id -type_id $notification_type_id] \