X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=wl%2Fwl-demo.el;h=19d26d667d87c5c7ada0e68ea0b53819af4e646a;hb=9e39553b80115a949a7f04ddced4459a7797f8bd;hp=d1c0a47d8a85c342c5c41ff209de0eca744b6fdc;hpb=fd44e582ccc0cb3d87ac3ddfe83f49203326c534;p=elisp%2Fwanderlust.git

diff --git a/wl/wl-demo.el b/wl/wl-demo.el
index d1c0a47..19d26d6 100644
--- a/wl/wl-demo.el
+++ b/wl/wl-demo.el
@@ -143,10 +143,10 @@ Return a number of lines that an image occupies in the buffer."
       (set-specifier (symbol-value 'scrollbar-height) 0 (current-buffer))
       (set-specifier (symbol-value 'scrollbar-width) 0 (current-buffer)))
     (if (and file
-	     (if (and wl-icon-dir
-		      (file-directory-p wl-icon-dir))
-		 (setq file (expand-file-name file wl-icon-dir))
-	       (message "You have to specify the value of `wl-icon-dir'")
+	     (if (and wl-icon-directory
+		      (file-directory-p wl-icon-directory))
+		 (setq file (expand-file-name file wl-icon-directory))
+	       (message "You have to specify the value of `wl-icon-directory'")
 	       nil)
 	     (if (file-exists-p file)
 		 (if (file-readable-p file)