From: hmurata <hmurata>
Date: Tue, 24 Feb 2004 01:10:29 +0000 (+0000)
Subject: * elmo-file.el (elmo-file-find): Fixed the problem when file is
X-Git-Tag: wl-2_11_25~43
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ad0a6e748835962a529d450a55c16baa8d11dbd5;p=elisp%2Fwanderlust.git

* elmo-file.el (elmo-file-find): Fixed the problem when file is
not found.
---

diff --git a/elmo/ChangeLog b/elmo/ChangeLog
index 03fe962..42aab59 100644
--- a/elmo/ChangeLog
+++ b/elmo/ChangeLog
@@ -1,3 +1,8 @@
+2004-02-24  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
+
+	* elmo-file.el (elmo-file-find): Fixed the problem when file is
+	not found.
+
 2004-02-22  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* elmo-file.el (elmo-file-find): Use expand-file-name for return
diff --git a/elmo/elmo-file.el b/elmo/elmo-file.el
index a1866ec..fd8e6b6 100644
--- a/elmo/elmo-file.el
+++ b/elmo/elmo-file.el
@@ -40,7 +40,7 @@
 	(setq file (car files)
 	      files nil))
       (setq files (cdr files)))
-    (expand-file-name file)))
+    (and file (expand-file-name file))))
 
 (defcustom elmo-file-command (exec-installed-p "file")
   "*Program name of the file type detection command `file'."