[siesta-commit] siesta/lib/Siesta/Plugin SubjectTag.pm,1.1,1.2

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

Update of /cvsroot/siesta/siesta/lib/Siesta/Plugin
In directory usw-pr-cvs1:/tmp/cvs-serv28923/lib/Siesta/Plugin

Modified Files:
	SubjectTag.pm 
Log Message:
simplify subjecttag by adding a convenience method to Message + tests for subjecttag

Index: SubjectTag.pm
===================================================================
RCS file: /cvsroot/siesta/siesta/lib/Siesta/Plugin/SubjectTag.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- SubjectTag.pm	23 Aug 2002 14:26:38 -0000	1.1
+++ SubjectTag.pm	23 Aug 2002 15:20:30 -0000	1.2
@@ -9,9 +9,9 @@
     my $self = shift;
     my $mail = shift;
 
-    my $subject   = $mail->head->get("Subject");
+    my $subject   = $mail->subject;
     my $list_name = $mail->list->id;
-    $mail->head->replace("Subject", "[$list_name] $subject")
+    $mail->subject("[$list_name] $subject")
       unless $subject =~ /\[$list_name\]/;
     return;
 }

• [siesta-commit] siesta/lib/Siesta/Plugin SubjectTag.pm,1.1,1.2 clampr 16:20 on 23 Aug 2002

Generated at 13:57 on 01 Jul 2004 by mariachi 0.52