From cadb92e440984938c9e299088b54891fdfc7b77c Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Mon, 6 Jan 2003 20:05:48 +0000
Subject: [PATCH] *** empty log message ***

SVN Revision: 31
---
 src/translate.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/translate.erl b/src/translate.erl
index 0c6d49ef1..ca2a8f03c 100644
--- a/src/translate.erl
+++ b/src/translate.erl
@@ -25,7 +25,13 @@ load_dir(Dir) ->
     {ok, Files} = file:list_dir(Dir),
     MsgFiles = lists:filter(
 		 fun(FN) ->
-			 string:substr(FN, string:len(FN) - 3) == ".msg"
+			 case string:len(FN) > 4 of
+			     true ->
+				 string:substr(FN,
+					       string:len(FN) - 3) == ".msg";
+			     _ ->
+				 false
+			 end
 		 end, Files),
     lists:foreach(
       fun(FN) ->