* 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 (file)
--- 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 (file)
--- 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 (file)
--- 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))