X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=WL-MK;h=19c9c38779284283e1a16692ee7ac043a8825d81;hb=7c8c73a58973c457d50acbf16f25b314f2e93b41;hp=4c8a1022a18fa29bdc20afdee70bbfa1981d61d4;hpb=e46a7b2aa49a2e060fe731c177ae753d3da76f5f;p=elisp%2Fwanderlust.git

diff --git a/WL-MK b/WL-MK
index 4c8a102..19c9c38 100644
--- a/WL-MK
+++ b/WL-MK
@@ -246,23 +246,15 @@
   (if (not (file-directory-p PIXMAPDIR))
       (make-directory PIXMAPDIR t))
   (let* ((case-fold-search t)
-	 (icons (directory-files ICONDIR t
+	 (icons (directory-files ICONDIR nil
 				 (cond ((featurep 'xemacs)
 					"\\.x[bp]m$")
 				       ((and (boundp 'emacs-major-version)
 					     (>= emacs-major-version 21))
 					"\\.img$\\|\\.x[bp]m$")
 				       ((featurep 'mule)
-					"\\.img$\\|\\.xbm$"))))
-	 icon dest)
-    (while icons
-      (setq icon (car icons)
-	    icons (cdr icons)
-	    dest (expand-file-name (file-name-nondirectory icon) PIXMAPDIR))
-      (princ (format "%s -> %s\n"
-		     (file-name-nondirectory icon)
-		     (substring (file-name-directory dest) 0 -1)))
-      (copy-file icon dest t))))
+					"\\.img$\\|\\.xbm$")))))
+    (install-files icons ICONDIR PIXMAPDIR nil 'overwrite)))
 
 (defun install-wl-package ()
   (compile-wl-package)