From: kaoru <kaoru>
Date: Tue, 23 Jan 2001 11:48:39 +0000 (+0000)
Subject: * wl-version.el (wl-version-show): Removed.
X-Git-Tag: wl-2_6-root~141
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fcb1942be62d7aae2bf1951453d6a4c2a4f1aca2;p=elisp%2Fwanderlust.git

* wl-version.el (wl-version-show): Removed.
(wl-version): Add `interactive'.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index cb1d2b5..c4027fa 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-23  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-version.el (wl-version-show): Removed.
+	(wl-version): Add `interactive'.
+
 2001-01-22  YAMASHITA Junji <ysjj@unixuser.org>
 
 	* wl-summary.el (wl-summary-get-petname-func): New variable.
diff --git a/wl/wl-version.el b/wl/wl-version.el
index b3d014b..c1280bd 100644
--- a/wl/wl-version.el
+++ b/wl/wl-version.el
@@ -1,7 +1,7 @@
 ;;; wl-version.el -- Version information for Wanderlust.
 
-;; Copyright (C) 2000 Yuuichi Teranishi <teranisi@gohome.org>
-;; Copyright (C) 2000 TAKAHASHI Kaoru <kaoru@kaisei.org>
+;; Copyright (C) 2000-2001 Yuuichi Teranishi <teranisi@gohome.org>
+;; Copyright (C) 2000-2001 TAKAHASHI Kaoru <kaoru@kaisei.org>
 
 ;; Author: Yuuichi Teranishi <teranisi@gohome.org>
 ;;	TAKAHASHI Kaoru <kaoru@kaisei.org>
@@ -51,19 +51,16 @@
 ;; set version-string
 (product-version-as-string 'wl-version)
 
-(defun wl-version (&optional with-codename)
-  "Return Wanderlust version.
-If WITH-CODENAME add codename."
-  (product-string-1 'wl-version with-codename))
-
-(defun wl-version-show (&optional arg)
-  "Print Wanderlust version.
-If ARG insert string at point."
-  (interactive "P")
+;; Don't support insert string at-point (C-u M-x wl-version).
+;; For bug report, use `wl-generate-user-agent-string-1' instead.
+;; When non-interactive, use `product-string-1' instead.
+(defun wl-version ()
+  "Print Wanderlust version."
+  (interactive)
   (let ((product-info (product-string-1 'wl-version t)))
-    (if arg
-	(insert product-info)
-      (message "%s" product-info))))
+    (if (interactive-p)
+	(message "%s" product-info)
+      product-info)))
 
 (defvar wl-version-status-alist
   '(((zerop (% (nth 1 (product-version (product-find 'wl-version))) 2))