# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1340603885 -32400
# Node ID 3e91dd66deb602f18fedfcfacde69205e1d40ff5
# Parent  2445a87742d0563285b2eff826710defec4aaa49
Return 1 if /seq file is not there.

diff -r 2445a87742d0 -r 3e91dd66deb6 after5.rb
--- a/after5.rb	Mon Jun 25 14:41:58 2012 +0900
+++ b/after5.rb	Mon Jun 25 14:58:05 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 Mon Jun 25 14:40:45 2012 on firestorm
+# Last modified Mon Jun 25 14:57:17 2012 on firestorm
 # See http://www.gentei.org/~yuuji/software/after5/
 # このスクリプトはEUCで保存してください。
 $hgid = <<_HGID_.split[1..-2].join(" ")
@@ -1647,7 +1647,9 @@
     open(seqfile, "w"){|s| s.puts seq.to_s} # update `seq' file
   end
   def mlseq(dir)
-    open(dir+"/seq", "r"){|s|s.gets.to_i+1}
+    test(?s, (seqfile = dir+"/seq")) ?
+    open(seqfile, "r"){|s|s.gets.to_i+1}
+    : 1
   end
   def sendMail(to, subject, body, from=nil, rcptto=nil, header={},
                thru=nil, spoolto=false)