From: kaoru <kaoru>
Date: Sun, 22 Apr 2001 03:09:23 +0000 (+0000)
Subject: * wl-version.el (wl-version-status): New variable.
X-Git-Tag: wl-2_6-root^3~37
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=84eb454ec00730b31a9593adf607a02d2d708daa;p=elisp%2Fwanderlust.git

* wl-version.el (wl-version-status): New variable.
(wl-version-status-alist): Removed.
(wl-version-status): Rule included.
---

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  <kaoru@kaisei.org>
+
+	* wl-version.el (wl-version-status): New variable.
+	(wl-version-status-alist): Removed.
+	(wl-version-status): Rule included.
+
 2001-04-19  Yuuichi Teranishi  <teranisi@gohome.org>
 
 	* 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)