$NetBSD: patch-aa,v 1.2 2004/11/27 14:50:45 taca Exp $

--- sample/tkbiff.rb.orig	2003-08-02 15:42:44.000000000 +0900
+++ sample/tkbiff.rb
@@ -11,8 +11,12 @@ end
 if ARGV.length == 0
   if ENV['MAIL']
     $spool = ENV['MAIL']
-  else  
-    $spool = '/var/spool/mail/' + ENV['USER']
+  else
+    dir = '/var/spool/mail'
+    unless FileTest.directory?(dir)
+      dir = '/var/mail'
+    end
+    $spool = dir + '/' + ENV['USER']
   end
 else 
   $spool = ARGV[0]