From 014e7b218530f4331bd6fef824603332e292aefe Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Wed, 26 Dec 2001 12:38:10 +0000
Subject: bug fix: _print_li_filename() check is too restricted

---
 fml/lib/Mail/HTML/Lite.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fml/lib/Mail/HTML/Lite.pm b/fml/lib/Mail/HTML/Lite.pm
index 67d1b806..81bd43bc 100644
--- a/fml/lib/Mail/HTML/Lite.pm
+++ b/fml/lib/Mail/HTML/Lite.pm
@@ -4,7 +4,7 @@
 #   All rights reserved. This program is free software; you can
 #   redistribute it and/or modify it under the same terms as Perl itself.
 #
-# $FML: Lite.pm,v 1.32 2001/12/22 09:21:18 fukachan Exp $
+# $FML: Lite.pm,v 1.33 2001/12/23 14:12:51 fukachan Exp $
 #
 
 package Mail::HTML::Lite;
@@ -15,7 +15,7 @@ use Carp;
 my $debug = $ENV{'debug'} ? 1 : 0;
 my $URL   = "<A HREF=\"http://www.fml.org/software/\">Mail::HTML::Lite</A>";
 
-my $version = q$FML: Lite.pm,v 1.32 2001/12/22 09:21:18 fukachan Exp $;
+my $version = q$FML: Lite.pm,v 1.33 2001/12/23 14:12:51 fukachan Exp $;
 if ($version =~ /,v\s+([\d\.]+)\s+/) {
     $version = "$URL $1";
 }
@@ -1967,7 +1967,7 @@ sub _print_li_filename
     my $subject  = $db->{ _subject }->{ $id };
     my $who      = $db->{ _who }->{ $id };
 
-    if (defined $filename && $filename && -f $filename) {
+    if (defined $filename && $filename) {
 	_print_raw_str($wh, "<!-- LI id=$id -->\n", $code);
 
 	_print_raw_str($wh, "<LI>\n", $code);
-- 
cgit v1.2.1