From 84eb454ec00730b31a9593adf607a02d2d708daa Mon Sep 17 00:00:00 2001 From: kaoru Date: Sun, 22 Apr 2001 03:09:23 +0000 Subject: [PATCH] * wl-version.el (wl-version-status): New variable. (wl-version-status-alist): Removed. (wl-version-status): Rule included. --- wl/ChangeLog | 6 ++++++ wl/wl-version.el | 24 +++++++++--------------- 2 files changed, 15 insertions(+), 15 deletions(-) diff --git a/wl/ChangeLog b/wl/ChangeLog index 91be96f..641aed6 100644 --- a/wl/ChangeLog +++ b/wl/ChangeLog @@ -1,3 +1,9 @@ +2001-04-22 TAKAHASHI Kaoru + + * wl-version.el (wl-version-status): New variable. + (wl-version-status-alist): Removed. + (wl-version-status): Rule included. + 2001-04-19 Yuuichi Teranishi * wl-vars.el (wl-folder-mime-charset-alist): Setup default value for diff --git a/wl/wl-version.el b/wl/wl-version.el index 5986a94..a0f367c 100644 --- a/wl/wl-version.el +++ b/wl/wl-version.el @@ -48,6 +48,10 @@ (product-version (product-find 'elmo-version))) ; equals to ELMO version. "Smooth Criminal")) +(defconst wl-version-status nil + "Wanderlust verstion status. For override default rule. +If nil, use default rule.") + ;; set version-string (product-version-as-string 'wl-version) @@ -62,22 +66,12 @@ (message "%s" product-info) product-info))) -(defvar wl-version-status-alist - '(((zerop (% (nth 1 (product-version (product-find 'wl-version))) 2)) - . "stable") - (t . "beta")) - "An alist to define the version status.") - (defun wl-version-status () - "Return version status (\"stable\" or \"beta\")." - (let ((salist wl-version-status-alist) - status) - (while salist - (when (eval (car (car salist))) - (setq status (cdr (car salist))) - (setq salist nil)) - (setq salist (cdr salist))) - status)) + "Return version status string." + (or wl-version-status + (if (zerop (% (nth 1 (product-version (product-find 'wl-version))) 2)) + "stable" + "beta"))) ;; avoid compile warnings (defvar mule-version) -- 1.7.10.4