* 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 (file)
--- 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 (file)
--- 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)