X-Git-Url: https://defaria.com/gitweb/?a=blobdiff_plain;f=bin%2Fnag.pl;h=7485e7fac7e65ea2b65680824f5df21eb081b8e1;hb=952fd00c5d159096c407be3fc57acf62921eabf6;hp=689c8179e80e04a8b86cbaa20027b218a0abf4ba;hpb=81cbd130706633b1c19ff59371c2ef61d80c562b;p=clearscm.git

diff --git a/bin/nag.pl b/bin/nag.pl
index 689c817..7485e7f 100755
--- a/bin/nag.pl
+++ b/bin/nag.pl
@@ -4,7 +4,7 @@
 
 =head1 NAME $RCSfile: nag.pl,v $
 
-Nag: A progressively more agressive reminder program.
+Nag: A progressively more aggressive reminder program.
 
 =head1 VERSION
 
@@ -50,7 +50,7 @@ $Date: 2013/06/13 14:36:03 $
 
 =head1 DESCRIPTION
 
-This script read a file indicating who to remind. The format for this file is:
+This script reads a file indicating who to remind. The format for this file is:
 
  <email>|<subject>|<when>|<msgfile>|<sent>|<date>
 
@@ -73,6 +73,8 @@ tag it with X-Nag: <nag id> (will this come back when the user replies?). MAPS
 would then white list the sender and deliver the email as well as put the nag in
 a pending state.
 
+=back
+
 =cut
 
 use strict;
@@ -195,11 +197,12 @@ while (<$nagsIn>) {
       or error "Unable to open message file $msgfile - $!", 1;
 
     mail (
-      to      => $email,
-      subject => $subject,
-      mode    => 'html',
-      data    => $msg,
-      footing => $footing,
+      to            => $email,
+      subject       => $subject,
+      mode          => 'html',
+      data          => $msg,
+      footing       => $footing,
+      randomizeFrom => 1,
     );
 
     close $msg