$NetBSD: patch-aa,v 1.3 2006/01/03 14:41:21 taca Exp $

--- sample/tkbiff.rb.orig	2004-10-11 13:51:13.000000000 +0900
+++ sample/tkbiff.rb
@@ -12,7 +12,11 @@ if ARGV.length == 0
   if ENV['MAIL']
     $spool = ENV['MAIL']
   else  
-    $spool = '/var/spool/mail/' + ENV['USER']
+    dir = '/var/mail'
+    unless FileTest.directory?(dir)
+      dir = '/var/spool/mail'
+    end
+    $spool = dir + '/' + ENV['USER']
   end
 else 
   $spool = ARGV[0]
