From: kaoru <kaoru>
Date: Mon, 1 Jan 2001 11:31:55 +0000 (+0000)
Subject: * wl-version.el (wl-version-show): Use `product-string-1'
X-Git-Tag: wl-2_4_1pre~15
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2c26a6c3acba25d8f39ba74f5cfdfce9c2d90423;p=elisp%2Fwanderlust.git

* wl-version.el (wl-version-show): Use `product-string-1'
instead of `wl-version'.
* wl-fldmgr.el (wl-fldmgr-folders-header): Likewise.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 91296a2..d32753a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,9 @@
 2001-01-01  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
+	* wl-version.el (wl-version-show): Use `product-string-1'
+	instead of `wl-version'.
+	* wl-fldmgr.el (wl-fldmgr-folders-header): Likewise.
+
 	* wl-demo.el (wl-demo-copyright-notice): Add 2001.
 
 2000-12-31  TAKAHASHI Kaoru  <kaoru@kaisei.org>
diff --git a/wl/wl-fldmgr.el b/wl/wl-fldmgr.el
index 96c4484..0fb0b9e 100644
--- a/wl/wl-fldmgr.el
+++ b/wl/wl-fldmgr.el
@@ -52,7 +52,7 @@
 # This file is generated automatically by %s.
 #
 
-" (wl-version t)))
+" (product-string-1 'wl-version t)))
 
 ;;; Initial setup
 
diff --git a/wl/wl-version.el b/wl/wl-version.el
index 506d1ab..3b62307 100644
--- a/wl/wl-version.el
+++ b/wl/wl-version.el
@@ -60,9 +60,10 @@ If WITH-CODENAME add codename."
   "Print Wanderlust version.
 If ARG insert string at point."
   (interactive "P")
-  (if arg
-      (insert (message "%s" (wl-version t)))
-    (message "%s" (wl-version t))))
+  (let ((product-info (product-string-1 'wl-version t)))
+    (if arg
+	(insert product-info)
+      (message "%s" product-info))))
 
 (defvar wl-version-status-alist
   '(((zerop (% (nth 1 (product-version (product-find 'wl-version))) 2))