From: yamaoka <yamaoka>
Date: Sun, 16 Jun 2002 23:24:11 +0000 (+0000)
Subject: * WL-MK (install-wl-icons): Simplified the messaging form.
X-Git-Tag: elmo-mark-root~82
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=034db1ee4ca1908dff9aaaf3ac1cab91c529bd74;p=elisp%2Fwanderlust.git

* WL-MK (install-wl-icons): Simplified the messaging form.
---

diff --git a/ChangeLog b/ChangeLog
index 82d6cac..5eca10d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-06-16  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* WL-MK (install-wl-icons): Simplified the messaging form.
+
 2002-03-11  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* etc/icons/wl-folder-goto-draft-folder-up.xpm: Modified.
diff --git a/WL-MK b/WL-MK
index 008697e..d35e5df 100644
--- a/WL-MK
+++ b/WL-MK
@@ -243,7 +243,9 @@
       (setq icon (car icons)
 	    icons (cdr icons)
 	    dest (expand-file-name (file-name-nondirectory icon) PIXMAPDIR))
-      (princ (format "%s->%s\n" icon dest))
+      (princ (format "%s -> %s\n"
+		     (file-name-nondirectory icon)
+		     (substring (file-name-directory dest) 0 -1)))
       (copy-file icon dest t))))
 
 (defun install-wl-package ()