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 -N -r1.9.2.7 -r1.9.2.8
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	15 Jul 2003 12:20:35 -0000	1.9.2.7
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	30 Jul 2003 19:49:43 -0000	1.9.2.8
@@ -177,8 +177,13 @@
                 } else {
                     # we only want messages a person typed in themselves - nothing
                     # from any sort of auto-responder.
-                    if { [string compare -nocase $name "Auto-Submitted"] == 0 } {                       set is_auto_reply_p 1
+                    if { [string compare -nocase $name "Auto-Submitted"] == 0 } {
+                        set is_auto_reply_p 1
                         break
+                    } elseif { [string compare -nocase $name "Subject"] == 0 && [string match -nocase $value "Out of Office AutoReply:"] == 0 } {
+                        # added for BP
+                        set is_auto_reply_p 1
+                        break
                     } else {
                         lappend headers [string tolower $name] $value
                     }
@@ -206,7 +211,7 @@
             # a break above just exited the while loop;  now we need to skip
             # the rest of the foreach as well
             if { $is_auto_reply_p } {
-                ns_log Notice "NOTIF-INCOMING-EMAIL: message contains Auto-Submitted header, skipping"
+                ns_log Notice "NOTIF-INCOMING-EMAIL: message is from an auto-responder, skipping"
                 if {[catch {ns_unlink $msg} errmsg]} {
                     ns_log Notice "NOTIF-INCOMING-EMAIL: couldn't remove message $msg:  $errmsg"
                 }