# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1343268222 -32400
# Node ID 2e293d4d8db4618ee84c225a0ae5cf61bcc8d50b
# Parent  bdb7e40c2d4ff434cf5dd5fb5d9f1875bf2d2782
Not using proc.call for the sake of displaying document title.

diff -r bdb7e40c2d4f -r 2e293d4d8db4 after5.rb
--- a/after5.rb	Thu Jun 28 11:56:34 2012 +0900
+++ b/after5.rb	Thu Jul 26 11:03:42 2012 +0900
@@ -4,7 +4,7 @@
 # Associative Scheduling Table - after5
 # (C)2003, 2004, 2006, 2008, 2012 by HIROSE Yuuji [yuuji<at>gentei.org]
 # $Id: after5.rb,v 1.19 2012/04/01 11:52:25 yuuji Exp yuuji $
-# Last modified Thu Jun 28 11:51:17 2012 on firestorm
+# Last modified Thu Jul 26 11:00:38 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -2830,8 +2830,8 @@
         exit 0
       end
     end
-    # p rcpts
-    # p to
+    # 
+    # OK to send, go ahead
     sendMail(to, subj, body, from, rcpts,
              header,
              ENV['SENDER'],
@@ -3952,8 +3952,7 @@
       when "-groupman"
         ARGV.shift
         x=ARGV[0]
-        @prc = proc {groupman(x)}
-	@job = "@prc.call"
+	@job = "groupman("+(x ? "'#{x.dup.untaint}'" : "") + ")"
       when "-groupmod"
 	@job = "groupmod"
       when "-notify"