From 2c26a6c3acba25d8f39ba74f5cfdfce9c2d90423 Mon Sep 17 00:00:00 2001 From: kaoru Date: Mon, 1 Jan 2001 11:31:55 +0000 Subject: [PATCH] * wl-version.el (wl-version-show): Use `product-string-1' instead of `wl-version'. * wl-fldmgr.el (wl-fldmgr-folders-header): Likewise. --- wl/ChangeLog | 4 ++++ wl/wl-fldmgr.el | 2 +- wl/wl-version.el | 7 ++++--- 3 files changed, 9 insertions(+), 4 deletions(-) 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 + * 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 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)) -- 1.7.10.4