From fcb1942be62d7aae2bf1951453d6a4c2a4f1aca2 Mon Sep 17 00:00:00 2001 From: kaoru Date: Tue, 23 Jan 2001 11:48:39 +0000 Subject: [PATCH] * wl-version.el (wl-version-show): Removed. (wl-version): Add `interactive'. --- wl/ChangeLog | 5 +++++ wl/wl-version.el | 25 +++++++++++-------------- 2 files changed, 16 insertions(+), 14 deletions(-) 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 + + * wl-version.el (wl-version-show): Removed. + (wl-version): Add `interactive'. + 2001-01-22 YAMASHITA Junji * 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 -;; Copyright (C) 2000 TAKAHASHI Kaoru +;; Copyright (C) 2000-2001 Yuuichi Teranishi +;; Copyright (C) 2000-2001 TAKAHASHI Kaoru ;; Author: Yuuichi Teranishi ;; TAKAHASHI Kaoru @@ -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)) -- 1.7.10.4