1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Action/NotifyAsComment.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
3 package RT::Action::NotifyAsComment;
4 require RT::Action::Notify;
5 @ISA = qw(RT::Action::Notify);
8 =head2 SetReturnAddress
10 Tell SendEmail that this message should come out as a comment.
11 Calls SUPER::SetReturnAddress.
15 sub SetReturnAddress {
18 # Tell RT::Action::SendEmail that this should come
19 # from the relevant comment email address.
20 $self->{'comment'} = 1;
22 return($self->SUPER::SetReturnAddress(is_comment => 1));