From: kaoru Date: Tue, 23 Jan 2001 11:42:39 +0000 (+0000) Subject: * wl-version.el (wl-version-show): Removed. X-Git-Tag: wl-2_4_1~15 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c2dbb6e06bbede05ccd4cdc88763723eae23a98a;p=elisp%2Fwanderlust.git * wl-version.el (wl-version-show): Removed. (wl-version): Add `interactive'. --- diff --git a/wl/ChangeLog b/wl/ChangeLog index 568c683..6c862d9 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 Yuuichi Teranishi * wl-draft.el (wl-draft-reply): Fixed problem when there's no subject diff --git a/wl/wl-version.el b/wl/wl-version.el index 51cff50..b376669 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))